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ABSTRACT 

\ 


The  computerized  Quick -Reacting  General  War  Gaming  System  (QUICK)  will 
accept  Input  data,  automatically  generate  global  strategic  nuclear  war 
I plans,  provide  statistical  output  summaries  and  produce  Input  tapes  to 
simulator  subsystems  external  to  QUICK.  7UICK  has  been  programmed  In 
I FORTRAN  for  use  on  the  CCTC  HIS  6000  computer  system. 

I The  QUICK  Program  Maintenance  Manual  consists  of  four  volumesr'-'  Volume 
I I,  Data  Management  Subsystem;  Volume  II,  Weapon/Target  Identification 
Subsystem;  Volume  III,  Weapon  Allocation  Subsystem;  Volume  IV,  Sortie 
1 Generation  Subsystem.  Th©.  Program  Maintenance  Manual  complements  the 
other  QUICK  Computer  System  Manuals  to  facilitate  maintenance  of  the 
war  gaming  system.  This  volume.  Volume  III  provides  the  programner/ 
analyst  with  a technical  description  of  the  purpose,  functions,  general 
procedures,  and  programning  techniques  applicable  to  the  programs  and 
subroutines  of  the  Weapon  Allocation  subsystem.  The  associated  program 
listings  which  are  dynamic  and  voluminous  are  not  contained  herein.  ' 
However,  the  program  listings  may  be  obtained  by  arrangement  with  the 
I CCTC  QUICK  Project  Officer.  Companion  documents  are; 


a.  USERS  MANUAL 

Conqjuter  System  Manual  UM  9-77,  Volume  I 
Computer  System  Manual  UM  9-77,  Volume  II 
Computer  System  Manual  UM  9-74,  Volume  III 
Computer  System  Manual  UM  9-74,  Volume  IV 

Provides  detailed  instructions  for  applications  of  the  system 

b.  TECHNICAL  MEMORANDUM 
Technical  Memorandum  TM  153-77 

Provides  a nontechnical  description  of  the  system  for  senior 
management  personnel 


SECTION  1.  GENERAL 


1. 1 Purpose 

This  volume  of  the  QUICK  Program  Maintenance  Manual  describes  the  pro- 
grams which  are  part  of  the  QUICK  Weapon/Allocation  subsystem,  detailing 
the  programs,  subroutines,  and  functions  which  it  comprises.  The  Infor- 
mation contained  herein  is  presented  on  a program-by-program  basis.  Th* 
program-by-program  discussions  are  structured  so  that  a maintenance  pro- 
grammer can  understand  the  program  functions  and  programming  techniques. 
The  computer  subjects  are  structured  to  inform  the  maintenance  progrni—i r 
of  overall  system  programming  techniques  and  conventions. 

1.2  General  Description 

I The  Weapon  Allocation  subsystem  operates  using  the  integrated  data  base 
as  defined  by  all  modules  up  to  PLANSET  of  the  Weapon/Target  Identifica- 
tion subsystem  and  produces  a plan  using  the  weapon  resources  specified 
to  maximize  the  expected  target  value  destroyed.  The  subsystem  consists 
of  programs  PREPALOC,  ALOC,  EVALALOC,  and  ALOCOUT,  as  shown  in  figure  1. 
Figure  2 shows  the  relationship  of  the  Weapon  Allocation  subsystem  to 
other  QUICK  subsystems  in  terms  of  procedural  and  information  flow. 

The  programs  and  supporting  subroutines  of  this  subsystem  are  used  to 
define  information  for  use  in  later  processes  and  allocate  given  weapons 
to  targets  to  optimize  expected  value  destroyed.  Figure  3 shows  the 
subsystem  data  flow  schematic.  The  spill  tape  from  program  ALOCOUT  is 
the  input  to  program  FOOTPRNT  which  initiates  the  Sortie  Generation  sub- 
system. 

The  first  program,  PREPALOC,  precomputes  much  of  the  information  required 
by  later  processors.  It  organizes  the  input  data  for  efficient  use  by 
other  components  of  the  Weapon  Allocation  subsystem.  In  addition,  it 
provides  capabilities  for  planning  factor  modification  and  fixed  weapon 
assignment  specification. 

The  basic  data  manipulated  by  this  program  include  the  distance  and 
attrition  factors  for  the  weapons,  the  geographic  description  of  the 
I bomber  penetration  and  depenetration  corridors,  the  weapon  character- 
istic tables  (e.g.,  warhead  and  payload  tables),  and  the  target  charac- 
teristics. 

The  next  program,  ALOC,  perfomjs  the  allocation  of  weapons  to  targets. 
Using  a generalized  Lagrange  multiplier  method,  an  optimal  allocation 
is  generated  subject  to  •several  forms  of  user-input  allocation  con- 
straints. These  constraints  include  specification  of  minimum  and  max- 
imum desired  damage  levels,  restriction  of  weapons  to  specified  subsets 
of  the  target  system,  and  specification  of  weapons  allocated  to  speci- 
fic targets  by  the  user.  Within  these  constraints,  the  program  gener- 
ates the  allocation  which  miximizes  the  expected  value  destroyed  in 
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Figure  1.  Major  Subsystems  of  the  QUICK  System 


2 


CH-3 


Pro««4urftl  Plov 
InfoxMtloo  Flov 


' 0#«r  \ 

C«Qtr«c«d  I 


M^oa/Tart^t 

IdmctflcaclOB 

Sub«y«tflB 


CfJVX  IoC«sr«ccd 

Data  Ba*a 


Caatral 

Opatatlooa  Proca«cor 
(COP) 


Intarnal  Intarfaca  to  | 
Saquaotlal  Procaiolng  | 


Data 

ManagaaOBt 

Sabayataa 


Gaaaratad 

laporti 


Strataflc 

Attack 

Objactlvaa 


WaapoQ 

AllocatlOQ 

Subty«ti« 


Sortla 

Ganaratloa 

Subayataa 


War  Plan 


Oaaage 

AaMIMTIt 
or  Extaroal 
Slnulatlooa 


Figure  2.  Procedure  and  Information  Flow  In  QUICK/HIS  6000 


Procedural  Flow 


Information  Flow 


Figure  3.  Weapon  Allocation  Subayatem  - Data  Flow 


^ CH-3 


SECTION  2.  MODULE  PREPALOC 


2.1  Purpose 

The  purpose  of  this  module  Is  to  perform  preliminary  calculations  on  the 
weapon  and  target  data  as  stored  within  the  integrated  data  base.  The 
output  data  frxisi  PREPALOC  will  be  In  a form  convenient  for  use  by  the 
remaining  processors  of  the  plan  generator.  In  addition,  the  user  may 
select  options  to  modify  some  of  the  data  at  this  stage  of  processing. 

PREPALOC  (sometimes  called  the  Internal  Interface  Module)  Is  the  last 
module  within  the  QUICK  system  which  Is  controlled  by  the  COP.  Proces- 
sing for  all  remaining  processors  utilizes  standards  sequential  data 
flies  which  are  controlled  by  the  QUICK  fllehandler  subsystem.  There- 
fore, a major  portion  of  PREPALOC  action  Is  the  generation  of  sequential 
data  files.  These  files  obtain  Information  from  the  Integrated  data  base. 

I Program  PREPALOC  has  four  major  capabilities;  generation  of  weapon  and 
target  data,  modification  of  target  values  and  damage  constraints,  pre- 
paration of  data  for  the  fixed  weapon  assignment  capability  of  program 

I ALOC,  and  the  generation  of  fllehandler  files. 

The  data  produced  by  the  first  capability  can  be  divided  into  three 
categories;  geographic,  weapon,  and  target.  Module  PREPALOC  uses  the 
geographic  data  to  define  the  legs  for  each  penetration  corridor,  the 
location  of  each  refuel  area  (except  for  those  determined  automatically 
by  program  PLANOUT) , the  bases  available  for  recovery  from  each  depene- 

I tratlon  corridor.  The  weapon  data  characteristics  such  as  speed,  range, 
yield,  CEBp  and  function  are  aggregated  by  weapon  type.  The  number  of 
weapons  per  salvo  and  maximum  salvo  number  are  calculated.  Data  on  pay- 
loads,  warheads,  and  alr-to-surface  missiles  (ASMs)  are  also  calculated 
for  use  by  later  processors.  The  target  data  are  the  characteristics 
which  define  the  target  as  a candidate  for  weapon  allocation.  The  geo- 
graphic location,  vulnerability,  value,  damage  constraints,  value  sensi- 
tivity to  time,  and  other  target  characteristics  are  computed  for  each 
simple,  complex,  or  multiple  target.  These  data  will  determine  the  worth 
of  weapon  allocations  In  program  ALOC.  The  only  user-input  data  required 
for  this  capability  Identify  the  timing  of  the  strike  (e.g..  Initiative, 
retaliatory) . 

The  second  major  capability  of  this  progron  Is  the  modification  of  the 
target  characteristics,  VTO,  MINKILL,  and  MAXKILL.  VTO  Is  the  value  of 
the  target  relative  to  all  the  others.  MINKILL  Is  the  minimum  fraction 
of  target  value  that  must  be  destroyed,  and  MAXKILL  Is  the  maximum 
desired  fraction  of  target  value  destroyed.  Any  of  these  parameters  may 
be  changed  for  any  target.  The  change  requests  can  change  these  para- 
meters for  a single  target  or  for  a set  of  targets.  The  set  of  targets 
for  which  a change  Is  requested  Is  Identified  by  target  class,  type,  an 

I Individual  Identifier  (target  designator  code  (DESIG))  or  any  combination 
of  these.  For  complex  targets,  the  class,  type,  designator  code,  and 
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index  number  of  each  component  will  be  checked  to  determine  If  a target 
parameter  for  the  complex  Is  to  be  changed. 

In  addition,  the  user  can  specify  the  height  of  burst  to  be  used  In  any 
weapon/ target  combination.  The  user  selects  either  a ground  burst  or  an 
air  burst  at  the  optimal  air  burst  height.  In  the  absence  of  any  user 
specification,  the  most  damaging  hel^t  of  burst  Is  used. 

The  third  major  capability  Is  the  request  for  allocation  of  specific 
weapons  to  specific  targets.  This  fixing  of  weapons  to  targets  enables 
the  user  to  determine  part  of  the  weapon  allocation  while  leaving  the 
allocation  program  free  to  determine  the  remaining  allocation.  In  addl- 
I tlon,  the  time  of  arrival  at  target  or  launch  salvo  number  can  be  fixed 
for  missile  weapons.  This  Information  will  be  passed  to  program  PLANOUT 
which  will  adjust  launch  time  accordingly.  The  fixing  of  weapons  remains 
In  effect  for  the  remainder  of  the  plan  generation  process.  Later  pro- 
grams will  retain  the  assignments  as  best  possible.  (For  example.  It  Is 
possible  to  fix  a set  of  weapons  from  a weapon  group  with  maitlple  Inde- 
pendently targetable  reentry  vehicles  (MIRV)  In  such  a manner  that  there 
are  no  feasible  footprints  that  cover  that  target  set  adequately.  In 
that  case,  some  of  the  fixed  assignment  requests  must  be  Ignored.) 

The  fourth  major  capability  Is  the  transition  from  the  Integrated  data 
base  method  of  data  definition  to  that  of  sequential  record  storage 
where  the  physical  location  of  each  record  is  necessary  for  proper  pro- 
cessing. 

2.2  Input  ^ 

i 

The  entire  Integrated  data  base  must  be  completely  defined  prior  to 
PREPALOC  execution.  This  Includes  the  storage  of  all  targets,  related 
geographic  data,  weapon  type  and  group  characteristics  and  other  support- 
ing data  such  as  warhead  and  payload  Information. 

2.3  Output  Files 

There  are  three  files  output  by  PREPALOC,  the  TARi  ^-LE,  BASFILE,  and 
TGTFILE  (all  files  are  output  by  the  QUICK  t'llehandler  ''n^o  a specified 
disk  unit).  The  TGTFILE  contains  the  ti.rget  characteristics  Input  on  the 
data  base  as  modified  by  the  user-input  requests.  Appended  to  these 
characteristics  are  geographic  data  relating  each  target  to  each  pene- 
tration corridor  and  a preferred  depenetration  corridor.  Table  1 dis- 
plays the  format  of  the  TGTFILE.  There  is  one  data  block  (locally  stored 
by  common  /TARGET/)  as  described  In  table  1 for  each  target.  The  BASFILE 
contains  the  basic  formatted  source  of  geography,  warhead,  payload,  wea- 
pon and  target  component  (for  complex  or  multiple  targets)  Information 
fc*  the  remaining  processors  of  the  plan  generation.  Table  2 displays 
the  'ormat  of  th-  BASFILE.  This  file  Is  divided  Into  four  major  sections: 
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Table  2. 

BASFILE  Format 

(Part  1 of  11) 

ASSOCIATED 

VARIABLE 

C0^t10N 

LENGTH 

OR  ARRAY 

DESCRIPTION 

MASTER 

22 

IHDATE 

Date  of  run  initiation 

IDENTNO 

Run  identification  number 

IS  IDE 

Attacking  side 

NRTPT 

Number  of  route  points 

NCRNU 

Number  of  penetration 
corridors 

NDPNO 

Number  of  depenetration 
corridors 

NRECOVER 

Number  of  recovery  bases 

NREF 

Number  of  directed  refuel 

areas 

NREG 

Number  of  conmand  and  con- 
trol regions 

NTYPE 

Number  of  weapon  types 

NGROUP 

Number  of  weapon  groups 

NTOTBASE 

Total  nttmber  of  bases 

NPAYLQAD 

Number  of  payload  types 

NASMTYPE 

Number  of  ASM  types 

NWHDTYPE 

Nundier  of  warhead  types 

NTANKBAS 

Ntnnber  of  tanker  bases 

NCOMPLEX 

Number  of  complex  targets 

NCLASS 

Number  of  weapon  classes 
(2) 

NUMLRT 

Number  of  alert  conditions 
(2) 

NTGTS 

Number  of  targets 

NCORTYPE 

Number  of  penetration  corrl' 
dor  types 

NCNTRY 

Nund^er  of  distinct  country 
codes 

Table  2.  (Part  2 of  11) 


{ 
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ASSOCIATED 

VARIABLE 

COMMON 

LENGTH 

OR  ARRAY 

DESCRIPTIONS 

IIMFILE 

4 

TGTFILE(2)* 

Target  data  file 

BASFILE(2) 

Data  base  Information  file 

FILES 

11 

MSLTIME(2) 

Fixed  missile  timing  file 

AL0CTAR(2) 

Weapon  allocation  by  tar- 
gets file 

TMPALOC(2) 

Temporary  allocation  file 

ALOCGRP(2) 

Allocation  b_-  group  file 

STRKFIL(2) 

Strike  file 

PLANTAPE** 

Detailed  plans  tape 

CORRCHAR 

180 

PCLAT(30) 

Latitude  of  corridor  point 

PCLONG(30) 

Longitude  of  corridor  point 

ZPLAT(30) 

Latitude  of  corridor  origin 

ZPLONG(30) 

Longitude  of  corridor  origin 

ENTLAT(30) 

Latitude  of  corridor  entry 

ENTLONG (30) 

Longitude  of  corridor  entry 

CRLENGTH 

30 

CRLENGTH (30) 

Distance  from  corridor  entry 
to  corridor  origin 

KORSTYLE 

30 

KORSTYLE (30) 

Power  of  y versus  x*** 

PCVALUES 

60 

ATTRCORR(:'0) 

High  altitude  attrition  per 
nautical  mile  unsuppressed 

ATTR8Uaa(30) 

High  altitude  attrition  per 

nautical  mile  suppressed 


I 


* J-'irst  word  is  logical  unit  number;  second  word  Is  maximum  file  length 
( words.  Single  variables  are  logical  unit  numbers. 

**  i'H't:^''it  on  n .gnetic  tape. 

•,'f**See  program  POSTALOC. 
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Table  2.  (Part  3 of  11) 


ASSOCIATED 

COMMON 

LENGTH 

VARIABLE 

OR  ARRAY 

DESCRIPTION 

CORRTWO 

271 

HILOATTR(30) 

Ratio  of  low  to  high  alti- 
tude attrition  (less  than  1) 

DEFRANGE(30) 

Characteristic  range  of 
corridor  defense  (nautical 
miles) 

NPRCRDEF(30) 

Ntmiber  of  attrition  sections 
this  corridor 

DEFDIST(30,3) 

Distance  of  precorridor  leg 

ATTRPRE(30,3) 

Attrition  in  this  precorri- 
dor leg 

NDATA 

Nuiid>er  of  penetration  corri- 
dors 

ASMONE 

100 

IWHDASM(20) 

Warhead  index  \ 

RANGEAAR(20) 

Range  1 

1 

L for 
[ ASMS 

RELASMAR(20) 

Reliability  , 

CEPASMAR(20) 

CEP 

SPEEDAAR(20) 

Speed 

f 

PAYONE 

440 

NOBOMB1(40) 

Number  of  type 

1 boad>s 

IWHD1(40) 

Type  1 warhead 

index 

NOBOMB2(40) 

Number  of  type 

2 boiid>s 

IWHD2(40) 

Type  2 warhead 

index 

NASM(40) 

Number  of  ASMs 

IASM(40) 

ASM  index 

NCMSAR(40) 

Number  of  countermeasures 

NDEC0YAR(40) 

Number  of  terminal  decoys 

NAREADAR(40) 

Number  of  area 

decoys 

IMIRV(40) 

MIRV  system  identification 
number 

PAYALTAR(40) 

Release  altitude  code 

Table  2.  (Part  4 of  11) 


ASSOCIATED 

VARIABLE 

CCMiON 

LENGTH 

OR  ARRAY 

DESCRIPTION 

DPENREF 

150 

DPLINK(50) 

Depenetration  point  link 

DPLAT(56) 

Depenetration  point  lati- 
tude 

DPLONG(50) 

Depenetration  point  longi- 
tude 

RFPOINTS 

40 

RFLAT(20) 

Refuel  point  latitude 

RFLONG(20) 

Refuel  point  longitude 

PLANTYPE* 

3 

INITSTRK 

Indicator  for  first  or 
second  strike 

CORMSL 

Coordination  time  parameter 
for  missiles 

CORB(»lB 

Coordination  distance  for 
bombers 

WHONE 

150 

YLDAR(50) 

Weapon  yield 

PDUDAR(50) 

Weapon  dud  probability 

FFRACAR(50) 

Fission  fraction 

CCRELAR 

20 

CCRELAR(20) 

Conmand  and  control  relia- 
bility 

WEPVAL 

200 

RANGEAR(IOO) 

Range  of  vehicle  (nautical 
miles) 

CEPAR(IOO) 

CF?  (nautical  miles) 

WPVALUES 

400 

SPEEDAR(IOO)** 

Speed  (knots) 

ALERDAR(IOO) 

Alert  delay  (hours) 

NALRTDAR(IOO) 

Nonalert  delay  (hours) 

RANGEDAR(IOO)*** 

Low/high  altitude  fuel 

consumption  ratio 


1 .1  cks  PLANTY'  and  EXCESS  combined  in  program  PREPALCX)  to  common 
/r  •'IF. VAR/. 

•**For  missiles,  this  variable  is  replaced  by  TOFMIN,  the  minimum  flight 
t fme  (hours). 

***por  missiles,  this  variable  is  replaced  by  CMISS,  the  missile  time  of 
flight  factor. 
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Table 

2.  (Part‘5  of 

11) 

■ V 

ASSOCIATED 

VARIABLE 

COMMON 

LENGTH 

OR  ARRAY 

DESCRIPTION 

ICLASSAR 

100 

ICLASS(IOO) 

Weapon  class 

RANGERAR 

100 

RANGERAR (100)* 

Reliability 

WE PTWO 

300 

RELAR(IOO) 

Reliability 

IRECMODE(IOO) 

Recovery  mode 

IPENMODE(IOO) 

Penetration  mode 

ISIMTYPE 

100 

ISIMrYPE(lOO) 

Hollerith  type  name 

FUNCTION 

100 

FUNCTION (100) 

Function  code 

LHVALUES 

150 

LCHINTAR(75) 

Launch  Interval  for  missiles 
types 

SIMLUNAR(75) 

Number  of  simultaneous 
launch  for  missiles  types 

WPNGRP 

3250 

NWPNS(250) 

Number  of  weapons 

NVEHGRP(250) 

Number  of  vehicles 

WLAT(250) 

Centroid  latitude 

WLONG(250) 

Centroid  longitude 

IREGAR(250) 

Comnand  and  control  region 

IALERTAR(250) 

Alert  status 

SBL(250) 

Probability  of  survival 
before  launch 

IREFUEAR(250) 

Refuel  code  for  bombers 
payload  Index  for  missiles 

YIELDAR(250) 

Weapon  yield  (negatons) 

REFTIME(250) 

Refuel  time 

EXPASM(250) 

Franc t ion  of  ASMs  In  each 
group 

IAMSM(250) 

ASM  Index  (pointer  to  ASM 
Table) 

*For  missiles 

, this  variable 

Is  replaced  by  RNGMIN,  the  minimum  missile 

range  In  nautical  miles. 
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Table  2.  (Part  6 of  11) 
ASSOCIATED  VARIABLE 


COMMON 

LENGTH 

OR  ARRAY 

DESCRIPTION 

-- 

1 

NEXCESS 

Number  of  words  In  this 
block 

EXCESS* 

6 

PEXBOMB 

Percentage  of  weapons  added 
to  bomber  groups  In  PREPALOC 

EXNBOMB 

Number  of  vehicle  loads 
added  to  bomber  groups  In 
PREPALOC 

PEXMIRV 

Same  as  PEXBOMB  for  groups 
with  MIRV  capability 

EXBMIRV 

Same  as  EXNBO>ib  for  groups 
with  MIRV  capability 

PEXMISS 

Same  as  PEXBOMB  for  non- 
MIRV  missile  groups 

EXNMISS 

Same  as  EXNBOMB  for  non- 
MIRV  missile  groups 

SBLREAL 

250 

SBLREAL(250) 

Actual  SBL  probability 

-- 

1 

NNAVAL 

Number  of  words  in  this 
block 

PKNAVAR 

250 

PKNAVAR(250) 

Single  shot  kill  probability 
against  NAVAT.  targets 

CTRYCD** 

150 

CTRYCD (150) 

List  of  country  location 
codes 

NFIXES 

250 

NFIXES(25(ri 

Number  of  weapons  fixed  in 
each  group 

> !’ ■ /cks  PLANTi’PB  and  EXCESS  combined  In  program  PREPALOC  to  common 
I ^MI■VAR/, 

*’''Bloi.ks  CTR\CD  and  IHVULN  combined  In  program  PREPALOC  to  common  /CVTAB  \ 
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Table  2.  (Part  7 of  11) 


ASSOCIATED 

COMMON 

LENGTH 

VARIABLE 

OR  ARRAY 

DESCRIPTION 

SALVO 

1750 

MAXSLV(250) 

Maximum  salvo  number  In 
salvoed  group  (zero  other- 
wise) 

NSAL(3,250) 

Nuiid>er  of  weapons  In  each 
salvo  (Packed  4 bits  per 
salvo,  24  salvoes  per  group) 

NSFIX(3,250)  Number  of  weapons  fixed  In 

each  salvo  for  salvoed 
groups  (packed  same  as 

NSAL) 

HOB 

6 

ISPEC(3) 

Logical  array  set  true  only 
If  user  specified  HOB  for 
a weapon  type 

IWH0B(3) 

Logical  array  giving  user 
specified  HOB  by  weapon 
type  (true=alr;  false* 
ground) 

IHVULN* 

255 

1HVULN(255) 

1 Vulnerability  numbers  pre- 

sent In  target  set 

— 

1 

RRRRRR 

*6HRRRRRR  as  end  sentinel 
for  first  section 

(34  X num- 
ber of  com- 
plex target 
components) 

+ (8  X num- 
ber of  mul- 
tiple tar- 
get-compo- 
nents) 

NAMEZ** 

INDEXNOZ 

DESIGZ 

TASKZ 

CNTRYLZ 

FLAGZ 

TGTSTATZ 

LATZ 

LONGZ 
RADIUS Z 
VALZ 
NHRDCOZ 

34-word  record  for  each  com- 
, plex  target  component; 

variables  defined  as  on 
TGTFILE 

* Blocks  CTRYCD  and  IHVULN  combined  in  program  PREPALOC  to  common  /CVTAB/ . 
**In  order  as  complex  or  multiple  target  appears  on  target  file,  TGTFILE. 
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Table  2.  (Part  8 of  11) 
ASSOCIATED  VARIABLE 


COMMON  LENGTH  OR  ARRAY 


HIZ 

(cont.)  H2Z 

FVULNZ 

NTIMCOZ 

FVALTZ(5) 

TZ(5) 

IHCLAS2 

ICLASSZ 

IHTYPEZ 

TARDEFZ 

MISDEFZ 

MINKILLZ 

MAXKILLZ 

MAXFRAZ 

NAMEZ  S 

INDEXNOZ 

DESIGZ 

TASKZ 

CNTRYLZ 

FLAGZ 

LATZ 

LONGZ 

ZZZZZZ 


(one  block 

(10  x num- 

IGROUP 

for  each 

ber  of 

NWPNS 

weapon 

groups)  + 

group) 

(5  X num- 

NVEHGRP 

ber  of 

occurrences 

IREGTM 

of  bases)  + 

ITYPE 

(18  X num- 
ber of 

lALERTTM 

groups) 

IREFUETM 

YIELDTM 

ISTARTTM 

NBASETM 

IBASE 

DESCRIPTION  i 

i 


8-word  record  for  each  mul- 
tiple target  element;  vari- 
ables defined  as  on  TGTFILE 


=6HZZZZZZ  end  sentinel  for 
secont  section 

Group  number 
Number  of  weapons 
Number  of  vehicles 
Conmand  and  control  region 
Weapon  type  index  (T'^PE) 
Alert  status 
Refuel  code 
Yield 

Starting  weapon  index 
Number  of  bases 
Base  index  number 
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Table 

2.  (Part  9 

of  11) 

ASSOCIATED 

VARIABLE 

COMMON  LENGTH 

OR  ARRAY 

DESCRIPTION 

— One  five- 

BLAT 

Base  latitude 

(cont.)  word  Block 

for  each 

BLONG 

Base  longitude 

Base  (i.e.. 

IPAYLOAD 

Payload  index 

NBASE) 

VONBASE 

Number  of  base  and  index 
of  starting  vehicle 

One  18-word 

WPTYP 

Hollerith  type  name 

Block  for 
each  Group 

RANGETM 

Range 

CEPTM 

CEP 

SPEEDTM* 

Speed 

ALRTTM 

Alert  delay 

NLRTTM 

Nonalert  delay 

RNGDTM** 

Low/high  altitude  fuel 
consumption  ratio 

ICLSTM 

Weapon  class  number 

NPSqfTM 

Number  per  squadron 

LCHTM 

Launch  interval  time  (hours) 

SPDTM 

Low  altitude  speed 

SIMTM 

Number  of  simultaneous 
weapon  launches  per  site 

RNGRTM*** 

Refueld  range 

NMPSTM 

Number  per  site 

IREPTM 

Reprogramming  index 

IRECTM 

Recovery  mode 

IPENTM 

Penetration  mode 

FUNCTM 

Function  code 

1 

YYYYYY 

=6HYYYYY  end  sentinel  of 
third  section 

* For  missiles,  this  variable 
time  (hours) 

**  For  missiles,  this  variable 
of  flight  factor. 

***For  missiles,  this  variable 
range  (nautical  miles). 


Is  replaced  by  TOFMIN,  the  minimum  flight 
is  replaced  by  CMISS,  the  missile  time 
Is  replaced  by  RNGMIN,  the  minimum  missile 
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Table  2.  (Part  10  of  11) 


ASSOCIATED 

VARIABLE 

COMMON  LENGTH 

OR  ARRAY 

DESCRIPTION 

CHARTER  160 

JOUNTOO)*' 

Route  pont  index  associ- 
ated with  IHAP 

IHAP(30) 

Corridor  pointer:  /CORRCHAR/ 
to  /HAPPEN/ 

MOUNT(50) 

Route  point  index  associ- 
ated with  JHAP 

>IHAP(50) 

Pointer:  /DPENREF/  to 
/HAPPEN/ 

llAWEN  1000 

JAPTYPE(250) 

Co  low  indicator 

HAPUT(250) 

ItoglcK  latitude 

»API,ONG(250) 

Dogleg  longitude 

11APDIST(250) 

lA^ngth  of  dogleg 

RECOVU  1100 

KCBLT(50) 

First  recovery  base  latitude 

RCBLN(50) 

First  recovery  base  longi- 
tude* 

RCBLAT(50,4) 

Latitude  of  actual  recovery 
base** 

RCBLONG(50,4) 

Longitude  of  actual  recovery 
base 

INnBAS(50,A') 

Recovery  base  nnme 

INDCAP(50,A) 

Recovery  base  capacity 

niSTR(S0,A) 

Distance  from  depenetration 
jK'iu.,  to  recovery  base 

(12  X num- 

INDEKTK 

i'.'urUei  . o .»  Index  irumber 

ber  of 

Canker 

LATTK 

Tanker  base  latitude 

bases)*** 

LONGTK 

Tanker  base  longitude 

IREGTK 

Tanker  base  refuel  area 

NPSQDTK 

Number  of  tankers  per  base 
or  squadron 

NAI.RTK 

Number  of  alert  tankers 
per  squadron 

1 iexPii  bj  (lopenci  r.iLlon 

corridor. 

liuU'xed  by  depone  era  Cion 

corridor  and  base  order. 

***rh»‘re  is  one  of  thse  12-word  blocks  for 

each  tanker  base. 
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(Part  11  of  11) 


ASSOCIATED 

COMMON 


RECOVR 

(cont.) 


VARIABLE 

LENGTH  OR  ARRAY  DESCRIPTION 


SPEEDTK 

Tanker  Speed 

ALRTTK 

Alert  delay 

NLRTTK 

Nonalert  delay 

TTOSTK 

Total  time  on  station 

ITYPETK 

Tanker  type  Index 

RANGETK 

Tanker  range 

xxxxxx 

-6HXXXXXX  end  sentinel 
for  fourth  section 
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basic  data  base  Information,  target  component  Information,  detailed  vea- 
pon  group  Information,  and  a section  containing  geographic  data,  recovery 
base  data,  and  tanker  base  data. 


i 

:i 

i 

i 

'i 

1 


The  first  section  on  the  BASFILE  contains  basic  data  base  Information. 

The  first  block  of  data  In  this  section  is  common  /MASTER/  which  speci- 
fies the  number  of  various  entitles  (targets,  groups,  etc.)  In  the  data 
j base  for  the  side  whose  plan  Is  being  generated.  The  next  blocks, 

I /IIMFTLE/  and  /FILES/,  specify  the  logical  unit  number  (for  use  by  the 
fllehandler)  and  the  maximum  file  length  for  each  nonscratch  file  used 
by  the  plan  generation  subsystem  from  programs  ALOC  to  PLANOUT.  The 
next  blocks,  commons  /CORRCHAR/,  /CRLENGTH/,  /KORSTYLE/,  /PCVALUES/,  and 
/CORRTWO/,  define  the  penetration  corridor  characteristics.  Block  nine, 
/ASMONE/,  describes  the  characteristics  of  the  air-to-surface  missiles 
(ASMs).  The  next  block,  /PAYONE/,  describes  the  contents  of  each  weapon 
vehicle  payload.  Blocks  /DPENREF/  and  /RFPOINTS/  next  describe  the  loca- 
tions of  the  depenetratlon  and  refueling  points,  respectively.  The  next 
block,  comnon  /PLANTYPE/,  specif^  s the  timing  considerate « i.s  for  the 
plan.  Block  /WHONE/  describes  warhead  characteristics;  block  /CCRElAR/ 
specifies  the  command  and  control  reliability  for  each  command  and  con- 
trol region.  Blocks  /WEPVAL/,  /WPVALUES/,  /ICLASSAR/,  /RANGERAR/,  /WEPTVO/ , 
/ISIWTYPE/,  /FUNCTION/,  and  /LHVALUES/  specify  the  weapon  type  character- 
istics. Block  /WPNGRP/  specifics  the  weapon  group  characteristics. 

Blocks  /EXC.F.SS/  and  /SBLREAL/  contain  Information  on  the  number  of  weapons 
added  by  program  PRI’PALOC  for  allocation  purposes.  (These  excess  weapons 
are  removed  by  either  program  POSTALOC  or  program  FOOTPRJTr,  In  the  case 
of  MIRV  weapons.)  Block  /PKNAVAR/  describes  the  kill  probability  against 
targets  In  the  NAVAL  class.  Finally,  block  /CTRYCD/  lists  all  the  country 
location  codes  (attribute  CNTRYLOC  present  in  the  target  system  for  this 
plan).  Blocks  /NFIXES/  and  /SALVO/  define  the  number  of  weapons  fixed 
in  each  group  followed  by  the  maximum  salvo  nuiid)or,  the  number  of  weapons 
In  each  salvo,  and  the  number  of  weapons  fixed  In  each  salvo  for  each 
group.  The  salvo  Information  arrays  arc  followed  by  block  /HOB/  which 
contains  the  user  specified  burst  heights  by  weapon  tyr  , and  block 
I / niVUT.N/  wlilch  contains  the  vulnerability  numbers  (attribute  VULNI)  for 
all  the  targets  In  the  plan. 

The  second  BASFILE  section  describes  the  char.u  t • rl sl  ip's  of  each  component 
of  a complex  or  multiple  target,  Tne  tiara  Mocks  In  tins  section  are 
I ordered  as  they  appear  on  the  TGTFILE,  Ihat  Is,  the  data  for  complex  and 
multiple  target  components  are  shuffled  In  the  same  manner  as  the  target 
complexes  or  multiples  are  shuffled.  For  each  complex,  there  Is  a set 
of  34-word  data  blocks,  one  block  for  each  component  of  the  conn->lex, 

^ Including  the  "lead"  element. 

For  ouch  multiple  target,  there  Is  a set  of  eight-word  data  blocks,  one 
b’oek  for  each  to' triple  target  component.  These  eight  words  Identify 
f’  -alues  of  I )se  cbsracterlstlcs  that  vary  from  component  to  co\it;ionent 
in  j finltlple  target. 
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I The  third  BASFILE  section  consists  of  detailed  weapon  group  data.  This 
section  consists  of  a set  of  data  blocks,  one  block  for  each  weapon 
group.  Each  of  these  blocks  describes  the  weapon  group  characteristics. 

I Each  block  contains  a set  of  five-word  blocks  that  describe  the  location 
and  characteristics  of  each  base  that  Is  used  by  weapons  In  the  group. 
There  Is  one  five-word  block  for  each  base  used  by  the  group.  Each 
block  also  contains  an  18-word  block  for  each  weapon  greup  daagrlblng 
the  characteristics  of  Ita.weappp^type. 

The  fourth  and  final  BASFILE  section  describes  miscellaneous  data 
I required  by  later  processors.  Coomon  /CHARTER/  defines  various  route 
point  Indices  and  pointers.  Coomon  /HAPPEN/  follows  with  a description 
of  each  leg  of  the  penetration  and  depenetration  corridors.  Data  on 
location  and  capacity  of  all  bomber  recovery  bases  follows  In  block 
I /RECOVR/.  Finally,  the  BASFILE  Is  terminated  by  the  characteristics 
of  the  tanker  vehicles  on  each  tanker  base. 

The  TARFILE,  which  Is  used  by  program  PLANOUT,  format  Is  shown  In  table 
3.  This  file  contains  packed  target  Information  and  pointers  that 
define  the  location  of  the  Information  based  on  the  target  DESIG. 

2.4  Concept  of  Operation 

The  flow  of  execution  Is  mainly  dictated  by  the  format  of  the  BASFILE 
(see  table  2)  whose  generation  Is  the  main  objective  of  PREPALOC.  Since 
the  Integrated  data  base  may  be  accessed  In  numerous  fashions,  the 
writing  of  BASFILE  simply  involves  the  querying  of  data  base  chains  at 
the  appropriate  time.  There  Is  little  or  no  need  for  utilizing  temporary 
scratch  data  files. 

In  addition  to  the  BASFILE,  files  TARFILE  and  TGTFILE  are  generated. 

Also,  prior  to  any  file  definition,  user  requests  are  honored  that  may 
redefine  data  base  target (s)  data. 

In  the  Interest  of  computer  core  efficiency,  PREPALOC  Is  subdivided  In 
five  separate  overlay  links  (called  links  A,  B,  C,  D,  and  E)  which  are 
executed  sequentially.  Upon  processing  an  overlay  link,  that  link  Is 
never  referred  to  again.  The  first  link  (A)  generates  the  TARFILE, 
and  remaining  links  produce  both  the  BASFILE  and  TGTFILE. 

2.5  Identification  of  Subroutine  Functions 

2.5.1  Subroutine  TARLST.  This  subroutine  controls  the  flow  of  the 
first  overlay  link  (called  A)  which  generates  the  TARFILE. 

2.5.3  Subroutine  PARTA.  Tlie  second  overlay  link  (called  B)  Is  controlled 
by  this  subroutine.  Woapoit  type  data  Is  stored,  user  Input  data  read  and 
processed  through  supporting  subroutines  FACTORCG  and  FIXWEIP  and  the  first 
section  of  the  BASFILE  Is  partially  written. 
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Table  3.  TARFILE  Format 


1 


BLOCK  TYPE 

MAXIMUM 

LENGTH/ 

ACTUAL 

LENGTH 

VARIABLE 

OR  ARRAY 

DESCRIPTION 

Header 

/C5/ 

1 (each) 

3 total 

MXSCAT 

Maxlnaan  length  of  the  SCAT 
array 

MAXPPG 

Maxlmian  length  of  a TARLIST 
page 

NIOPGS 

Number  of  TARLST  pages  on 
the  TARFILE 

Hash 

Table 

IC5I 

7771 

SCAT(7771) 

Target  designator  "hash" 
ordered  "page"  and  string 
pointer  table 

TARLIST 

Pages 

/C5/ 

Variable  in 

3516-word 

segments 

TARLIST(3516) 

TARLIST  page  of  target 
designator  strings 

* 

i 
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2.5.3  Subroutine  WEPPREP.  The  third  overlay  link  (called  C)  la  controlled 
by  this  subroutine.  It  continues  the  generation  of  the  first  section  of 
the  BASFILE. 


2.5.4  Subroutine  TGTPREP.  The  fourth  overlay  link  (called  D)  Is  con- 
trolled by  this  subroutine.  It  normalizes  target  values,  adjusts  salvo 
launch  Information  and  writes  the  TGTFILE  file  as  well  as  completing  the 
first  section  of  the  BASFILE. 

2.5.5  Subroutine  PARTB.  The  last  overlay  link  (called  E)  is  controlled 
by  this  subroutine  which  writes  the  last  three  sections  of  the  BASFILE. 

2.5.6  PREPALOC  Internal  Comnon  Blocks.  All  coiaaon  blocks  used  Inter- 
nally by  PREPALOC  are  given  in  tai>le  4,  For  definition  of  conmon  blocks 
that  counmnlcate  with  the  COP,  see  Program  Maintenance  Manual,  Volume  I. 
Also,  comnon  blocks  used  directly  for  BASFILE  definitions  are  defined  In 
table  2 and  not  repeated  within  table  4. 


Table  4.  Module  PREPALOC  Internal  Conmon  Blocks 
(Part  1 of  2) 


ASSOCIATED 

VARIABLE 

COMMON 

OR  ARRAY 

DESCRIPTION 

ASMTYPE 

ASMTYPE (20) 

ASM  type  names 

C5 

TARLIST(3516) 

Page  of  target  designator  strings 
for  TARFILE 

SRCPAD(3516) 

Scratch  pad  of  DESIG  strings  and 
items 

SCAT(7771) 

Hash  ordered  array  of  page  and 
target  designator  string  pointers 

MAXPPG 

Maximum  number  oT  ' ords  In  a 
TARLIST  page  (3316) 

MXSCAT 

Maximum  number  of  entries  In  the 
SCAT  array  (7771) 

MAXSRC 

Maximum  number  of  words  In  the 
SRCPAD  array  (3516) 

LAVSPG(15) 

Pointer  to  lists  of  available 
space  for  TARLST  pages  1 through 

15 

MXPGS 

Maximum  number  of  TARLST  pages 
<15) 

INCR 

Number  of  words  In  target  desig- 
nator string  Item  (6) 

CLASSCOM 

CLASSNAM(15) 

Target  class  names 

CLASSREF(15) 

Header  reference  codes  for  target 
classes 

NTARCLS 

Number  of  Laigc-  classes 

DISTEF 

DISTEF(50) 

Length  of  depenetration  corridor 

DISTEG(50) 

Distance  from  depcnetratlon  corri- 
dor entry  to  recovery  point 

rAMI'f.AC 

GAMFLAG(9) 

Flag  Indicating  value  for  planning 
parameter  was  input  It  set. 

Planning  parameters  are:  TN'’'?rRK, 
CORMSL,  CORBOMB,  PEXBOMB,  EXNIU-Hii, 
PEXMIRV,  EXBMIRV,  PEXMISS,  EXNMISS 


Table  4. 

(Part  2 of  2) 

ASSOCIATED 

COJtlON 

VARIABLE 

OR  ARRAY 

DESCRIPTION 

IGPREF 

IGPREF(250) 

Reference  codes  for  weapon  groups 

lONPRT 

lONPRT 

If  zero,  suppress  non-standard 
print 

ITP 

ITP 

Requested  unit  number  for  the 
Fllehandler 

IWEPREF 

IWEPREF (100) 

Reference  codes  for  weapon  type 
records 

MYIDENT 

MYIDENT 

File  name  for  the  Fllehandler 

MY LABEL 

MYFORM 

Outgoing  format 

MYSECR 

Outgoing  security 

MYLNGTH 

Number  of  words  requested  for 
file 

MYCOm(5) 

Outgoing  user  conments 

NFIXREQ 

NFIXREQ 

Number  of  fix  assignments  Imple- 
mented 

NUMCOR 

NCORR 

Number  of  penetration  corridors 

NDPEN 

Number  of  depenetration  corridors 

PAY'  ?E 

PAYTYPE(40) 

Payload  type  names 

SUMNEW 

SUMNEW 

Sum  of  values  after  Implementing 
value  change  requests 

TWORD 

ITWORD 

Single  word  transfer  medium  for 
Fllehandler 

WAROUT 

IWARFL 

Logical  unit  number  for  war  gaming 
output 

WHTYPE 

WHTYPE (50) 

Warhead  type  names 
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2.7  Subroutine  ENTMOD 


PURPOSE: 


ENTRY  POINTS: 


To  control  overall  flow  of  processing 

ENTMOD  (first  subroutine  called  when  overlay  link 
PREP  Is  executed) 


FORMAL  PARAMETERS: 


CCT10N  BLOCKS; 


CIO,  C15,  C20,  C25,  C30,  CUSSCOM,  ERRCOM,  ITP, 
MYIDENT,  MYLABEL,  TWORD,  WAROUT 


SUBROUTINES  CALLED;  HDFND,  HEAD,  INITAPE,  LLINK,  NEXTTT,  PARTA,  PARTB, 

RETRV,  TARLST,  TGTPREP,  WEPPREP 

CALLED  BY:  COP 

Method: 

ENTMOD  retrieves  and  stores  target  class  names  and  associated  reference 
codes  into  arrays  CLASSNAM  and  CLASSREF.  Upon  storage  completion,  each 
overlay  (see  figure  A)  Is  executed  and  then  processing  ends  for  PREPALOC. 


Overlay  1 of  PRKPALOC 


Overlay  2 of  PRF.PALOC 


Figure  4.  Module  PREPALOC  (Part  1 of  2) 


Overlay  3 of  PREPALOC 


Overlay  4 of  PREPALOC 


Overlay  5 of  PREPALOC 


Overlay  6 of  PREPALOC 


0'’f'rlnv  ' • 'PREPALOC 


Figure  4.  (Part.  2 of  2) 
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2.8  Subroutine  TARLST* ** 


PURPOSE; 

ENTRY  POINTS; 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED; 


CALLED  BY; 


To  write  the  TARFILE 

TARLST 

None 

C5,  CIO,  C15,  C30,  CLASSCOM,  ITP,  MYIDENT,  MYLABEL, 
TWORD 

ABORT,  DIRECT,  HEAD,  IHASH,  INITAR,  INITPG,  NEXTTT, 
RDARRAY,  RETRV,  SETREAD,  SETMRITE,  TERMTAPE,  WRARRAY, 
WRWORD 

ENTMOD  (of  PREPALOC) 


Method: 

Overlay  TARLST  is  called  to  create  the  TARFILE.  The  flowchart  for  TARLST 
is  shown  in  figure  5.  TARLST  reads  one  item  at  a time  from  the  individual 
target  record  chain  called  'TGTTGT'  and  uses  the  target  designator  code 
(DESIG)  to  calculate  a storage  address  in  the  hash  ordered  array  SCAT. 

If  the  SCAT  array  entry  at  the  calculated  address  is  empty,  the  current 
TARLIST  page  number  (KCPG)  and  the  pointer  index  (INDX)  to  the  storage 
area  in  the  current  page  (CURPGE)  are  packed  into  the  SCAT  array  entry. 

The  item  information  LAT,  LONG,  DESIG,  ISIX,  FLAG,  TARDEFHI,  CNTRYLOC, 
TASK,  CNTRYOWN,  HI,  and  INDEXNO  are  packed  and  stored  in  six  consecutive 
words  of  CURPGE  beginning  at  the  address  INDX/*  The  target  designator 
string  pointer  (ISIX)  is  set  to  zero  to  indicate  that  this  is  the  first 
item  in  the  DESIG  string.  If  a subsequent  item  DESIG  calculates  the 
same  hashed  SCAT  address  (and  the  indicated  page  (IPG)  for  the  previous 
DESIG(s)  is  currently  in  core)  the  pointer  in  the  SCAT  entry  (INDX)  is 
changed  to  point  to  the  new  item  and  the  new  item  string  pointer  (ISIX) 
is  set  to  point  to  the  predecessor  item.  If  the  Indicated  page  (IPG)  is 
not  currently  in  core  the  item  information  is  stored  in  a "scratch  pad" 
in  the  same  packed  format  as  that  of  the  TARLIST  entries.  The  string 
pointers  (ISIX)  for  these  scratch  pad  items  are  set  to  *9999'  as  a flag 
for  later  reprocessing  of  the  TARLIST  pages.  As  pages  of  the  TARLIST 
are  filled  in  this  manner  they  are  output  on  the  intermediate  scratch 
file  (lOUT).  If  a string  of  DESIGs  were  to  overflow  a page  as  it  is 
filled,  the  string  is  "pulled"  and  stored  in  the  SRCPAD.  The  pointer 
in  the  SCAT  entry  is  changed  to  point  to  the  SRCPAD  string  and  the  SCAT 
entry  is  set  negative  to  indicate  that  the  string  is  in  the  SRCPAD. 

When  the  SRCPAD  is  3/4  full,  the  intermediate  scratch  files  IN  and  OUT 
are  interchanged  and  the  pages  previously  output  in  lOUT  are  reprocessed 


* Main  subroutljM  of  jumhIv  U.nk  A.  . 

**See  figure  5 for  a description  of  the  packing  of  this  data. 


on  IN.  The  reprocessing  is  accomplished  by  scanning  the  SRCPAD  for 
'9999'  flagged  Item  entries.  If  the  SCAT  entry  IPG  Is  the  sane  as  that 
of  the  current  page  (Input  from  IN)  the  string  Is  pulled  and  stored  In 
the  SRCPAD  In  the  sane  manner  as  described  for  overflow  strings  (negative 
SCAT  entry).  All  pages  are  reprocessed  In  this  manner  until  the  SRCPAD 
Is  full  or  all  strings  are  pulled.  The  SCAT  array  Is  then  scanned  for 
negative  entries.  The  strings  for  these  negative  entries  are  then  moved 
from  the  SRCPAD  to  the  current  page.  This  process  continues  until  all 
SCAT  entries  are  positive.  Processing  of  the  INDEXDB  tapes  then  continues 
until  all  Items  have  been  processed. 
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Figure  5.  Subroutine  TARLST  (Part  1 of  17) 
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Unpack  IPG 
|And  ISIX  From 
SCAT(IH) 


Set  Scratch  Pad 
String  Pointer 
ISlX-9999 

• 

Get  Storage 
Index  ISKX 

To  Scratch  Pad 
(SRCPAD) 



/ SRCPAD  Full?  \ 
( ISKX-0  ) 

No 

Set  Next 
Index 

Storage 

ISNX 

Yes 


Store  DESIG,  LAX,  LONG, 
FLAG,  TARDEFHI,  CNTRYLOC,| 
CNTRYOWN,  HI,  TASK, 
INDEXNO,  In  SRCPAD 


Figure  5.  (Part  3 of  17) 


1 


Figure  S.  (Part  5 of  17) 
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l-iguro  5,  (1*311:  Oi'  17) 


CH-3 


Enter  Item  As 
First  In  String 
SRCPAD(r)«0 


/ Is  This  A \ 
'Scratch  Item  Entry? 
\ SRCPAJD(J)-9999  / 


IHASH 

Compute  SCAT 
Index  IHX 


SRCPAD  String? 
SCAT ( IHX )<0 


Unpack  IPGX 
From 

SCAT (IHX) 


IPEX  In  Core? 
IPEX-llXJ 


Enter  Item 
In 

String 


Unpack  INDX 
From 

SCAT (IHX) 


Set  Scratcli 
Pad  String 
Pointer  = 
IS1X=J 


■-  / ,>4  / 


J. 


G«*t  Pointer  I 

13iOC  To  1 

SRCPAJ  Item 1 


End  Of 
Scratch  Stri.ng? 


i_ 

Set  Pointer 
ISIOOC  To  Next 
Item  In  String 


Get  Pointer  KNDX 
To  Next  Space 
In  TASLIST 


(Page  Full? 
KNPX»0 

3^ 


I 

NSRCPD  » 
NSRCPD-1 

Store 

(IPnx,  KNPX)  In 
SCATdHX) 

■ i._ , 

' Reset  String 

Set  Pointer  Nl'JTX  ^ 

Pointer  1NDX.X 

To  Next  Available 

To  KUDX 

Spat  a In  lARLIST 

Reset  Pointer 

, 

Store  SRCPAD 

ISNX  To  Next 

Item  In 

In  SRCPAD 

TARI-IST 

Figure  5.  (Part  11  of  17) 
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'T' 


-.41“  iuO  1 


r 

CALL 

SETREiikP 

"1 

1 

1 

ITP*=IN 

1 

J. 

T _ 

CALL 

SETWRITE 

ITP-LTTAR 

7T^ 

/ 

/ WRITE 
' MX3CAT  To 

/ 

/ 

TARFILE 

j 

/ 

_L 

i WRITE 

/ 

/ 

/ 

MAXPPG  To 

L 

/ 

t 

TARFILE 

/ 

1 

/ WRITE 

/ 

/ 

NIOPGS  To 

/ 

TARFTT.E 

/ 

0 

..  i .. 

/ WRITE 

/ 

/ 

L 

SCAT  To 
TARFILE 

A 

0 

TAR.’^J.LE 


r 


\ 

K 


Figure  .5-  (Part  5 o£  17> 


/ Read  Pagf* 
/ I-  rom 
Scratch  File 


rlLu  I’nge 
To 

TARf TI^ 


TARF ILE 
(LTTAR) 


CALL 

TERMTAPE 

ITP-TN 


CALL 

rRRl-tTAPF 

lTP*!TrAR 


DESIG 


blank 


INDX+1 


TrJrxi2 


K- 


30  bits 


6 bits 


to  next  item  j.n  string 
36  bits 


1,AT 


21  bits 


TARDEFHI 
TASK  , / 1 


.1. iq 

■ 12  bits  ' 3 ' 


bits 


' Nnx+3 


INDEXNO 


21  bits 


I FIAG  , 
T IS  bits  I 


15  bits 


I NLiX+-; 


in 


24  bits 


LONG 


vr  bits 


GNTRYLOC 


12  bits 


CNTRYOWN 

~iy  blFs'^ 


Note:  l-AT  and  T,ONG  arc  stored  in  units  ot  .00001  degrees 


Fivurc  6.  TARFTT.m  Pack i fig  IVsscripi  ion 
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rrryiTs^ 


H' 


2.8,1  Subroutine  .LNITPG 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


TnilieMre  list  of  fo^  current 

TARI.TFT  Vb(;e 


TNITPG 

IPG  (page  number) 
C5 

ABORT 

TARLST 


Method: 

INITPG  (see  figure  7)  creates  a list  of  available  spac®  for  the  current 
TARLIST  page  (CURPGE) . The  list  Is  created  by  stringing  increments  (TNCR) 
of  words  in  the  TARLIST  array.  I.AVSPG  (TPG)  is  set  to  one  to  point  th® 
first  of  evsileble  spaea  for  pege  (IPG). 

Subroutine  INITPG  is  illustrated  in  figure  7, 


53 


CH-3 


2 . 9 giibrouttne  FARIA* 

To  write  The  BASHLE  up  tc  the  wear'on  tvpe  nrrays 
fafta 


None 


ASMCttJE,  ASMTYP,  CIO,  C15,  C20,  C25,  C30,  CHARTEF , j 

CLASSCOM,  CVTAB,  FRRCOM,  GAMEVAR,  GAMFLAG,  HAPPEN 
ILMJTLE,  lONPRT,  ISDflVPE.  ilP,  IWEPREF,  U!VAI,liE" 

MASTER,  MYTDENT,  MYIABEL,  NP'IXFS,  NFTXREQ.  0*^ 

PAYONE,  PAYTYPE,  RANGERAR,  SlIMNEW,  TWORD,  iJEPJUO 
WEPVAE,  WHONE,  WHIYPE.  WPVALHES 

DEPROUT,  DIRECT,  FACTORCG,  FIXWEP,  HDFND,  HEAD, 

TNSGET,  ITLE,  NEXTTT,  PENROIH , RETRY,  SEIWRITE, 

WRARRAY,  WRWORD 

EN^OD  (of  PREPALOC) 

Method; 

The  desl^  for  PARTA  is  nearly  self-exp^ aoeuory  since  code  merely  cn&lr4o 
the  proper  records,  stores  local  arrays  and  writes  data  onto  the  BASULE 
accoidinti  to  the  iorsnat  p.iven  in  table  2.  No  calculations  are  conuuett  I, 
only  the  determiration  of  BAGFTLF  arrays. 

In  addition  to  BASFILE  generation,  input  adverbs  as  user  directed  s^e  • 

( read  and  local  parameters  LOCSET  and  LOCFIX  are  set  to  the  starting  nos'.  i 

i tioa  into  INS&Ei's  arrays.  lONPRT  is  sot  if  user  req\!0.sts  non-t.ranilnrf' 
prints. 

Subroutine  FACTORCG  redefines  parameters  «s  user  directed  for  attribijfr i 
MINKILL,  MAXKTLI , VAE,  and  he Ight-of -burst  setting.  Also  FIXWEP  updates 
the  fix  weapon  asslgnmevit  linkage. 

Subroutines  PENR{>iIT  and  uEPROUT  calculates  penetration  and  depenerraf  < ,i 
corridor  paraim  ters. 

Upon  exiting  PARTA,  t>xe  rasfILE  is  only  initiallv  generated,  other  ca’iu- 
latlons  to  follow  'omplete  the  wrf‘  Ing  oi  riAoPILF. 
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♦Main  subroutine  of  ov"«rlav  link  l>. 
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PURPOSE; 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 
COMMON  BLOCKS; 


SUBROUTINES  CALLED; 

CALLED  BY; 


Retri  eve 
Target  Number 
Chain 
Header 


RcCri^ve 
Coun  f ry 
Location 
Codes 


Retrj  eve 


Vulnera- 

bilities 


Retrieve. 
Weapon  Group 
Ref 
Codes 


Retrieve 
Weapon  Header 
Code  lor 
bomun't 


call  NEXTTT 
for  Next  1 

Weapon  i 

Type  I 


Beni  ■>-  • 
.Rist 

Processed? 


Yfcs  / 


\ / Vri.!it 

-•fr  error 
< Mes.mge 


End  of 
Chain? 


f No 

^ Max;!  mem  \ 
Number  ^ 
Weapon  Types 
, Exceeded?  / 


Fill  Weapon 
Arrays  for 
BASFILE 


Figure  9.  Subroutine  PARTA  (Part  I of  6) 
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mpute  Lengths 
of  Files 
for 

BAS FILE 


Initialize 

BASFILE 


^ Adverb 


•ONPRINTS’? 


Set  Flag 
(lONPRT)  to 
Prevent  Print 
Sup pression | 


I 


/ Print 
/ Error 


Count  Number 
of  Penetrattor 
Corridors  and 
Corridor  Types 


Figure  9.  (Part  2 of  6) 
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J , ‘I . I Subroutine  DKPROUT 

rilRl’OSl''. : To  coniputo  and  write  depenetrntlon  corridor  data 

onto  the  BASFILE 

KNTRV  POINTS : PEPROUT 

KOR^^Al.  PARAWiiTERS • N - Pointer  Into  /HAPPEN/ 

E.(ffWN  Bl.tX^KS:  CIO,  CIS.  C30,  CHARTER.  DTSTEF,  PPENREF.  ERRCOM, 

HAPPEN,  lONl’RT,  NIJMCOK,  WPS,  RFPOINTS 

SlIUROUTINl'S  CAi.r.En:  inSTF,  HOFNl),  NEXITT,  RETRV,  STORE,  WRARRAY 

c^Al.lJsP  BY:  PARTA 

Me  thod : 

PI'.l’KCU’r  ealculntes  mid  MtoroH  depone  t rat  Ion  corridor  Information  and 
recover^’  bane  lnfonu.it  Ion  associated  with  each  depenetration  corridor  as 
well  as  storage  of  refuel  points.  Upon  collection  of  data,  arrays  are 
written  onto  UASEII.E, 

Individual  depene.tratlon  corridors  are  chained  and  for  each  corridor, 
distances  and  locations  are  dotermlned  and  stored  for  doglegs  within  the 
corridor.  After  dogleg  definition,  each  recovery  base  associated  with 
the  v-orridor  In  qni'rled  and  results  ste-ed. 

I Most  of  PEPRCUT's  function  in  concerned  with  writing  a section  of  the 
I UA.'''E  1 1 ,K.  Some  IPS  storage,  however.  In  defined.  Namely,  the  distances 
I ! rtim  corridor  exit  to  each  recovery  base  Is  ‘Morod  within  i ecord  'KPP1S'  ‘ 


■jhcoutlne  PEPKtHiT  Is  Illustrated  within  figure  10, 
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Figure  10.  Subroutine  DEFROirr  (Part  1 of  51 
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RETURN 


Figure  10.  (Part  5 of  5) 
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{ 2.9.2  Subroutine  FACTORCG 


PURPOSE: 

To  read  and  process  user  input  factor  change 
requests 

ENTRY  POINTS: 

FACTORCG 

FORMAL  PARAMF.TF.RS ; 

T oosET  - Pointer  to  INSGET's  arrays  for  location 
of  'SETTING*  adverb 

COMMON  BLOCKS: 

CIO,  C15,  C30,  CLASSCOM,  ERRC(»1,  GAMFLAG,  GAMEVAR, 
HOB,  ISIMTYPE,  OOPS 

SUBROUTINES  CALLED: 

CINSGET,  HDFND,  TTLE,  MAKECHG,  NEXTTT,  RETRY, 

SLOG 

CALLED  BY: 

PARTA 

Me  thod : 

FACTORCG  reads  the  user  directed  factor  change  requests  and  calls  sub- 
routine MAKECHG  to  Implement  each  change.  VALUE,  MINKILL,  and  MAXKILL 
may  be  changed.  Also,  if  it  is  desired  to  override  the  calculated 
optimal  height-of-burst  (attribute  IDHOB)  this  may  also  be  accomplished. 
These  attributes  may  be  reset  through  various  combinations  of  target 
data  subsetting.  Permlssable  requests  include  the  setting  of  attributes 

0 DESIG  - A single  target  record  is  to  be  updated 

o TYPE  - All  targets  that  equal  the  input  TYPE  are  to  be 

updated 

o CLASS  ••  All  targets  that  equal  the  Input  target  class  name 
are  to  be  updated 

o CNTRYL  - The  liei ght-of-burst  of  all  targets  located  within  the 
Innnt  country  location  are  to  be  updated 

o TRF.G  - The  height-of-burst  of  all  targets  located  within  the 
Input  region  arc  to  be  updated 

Ilie  last  two  requests  recognize  only  height-of-burst  requests.  Other- 
wire.  any  combination  of  target  subsetting  is  premlssable  but  there  Is 
a ranking  order  in  the  final  storage  of  Input  values.  The  order  of  prl- 
oritv  is;  DESIG,  TYPE,  Clj\SS,  CNTRYL,  TREC,  That  is,  if  a given  target 
i to  V '”.'0  an  attribute  updated  by  more  than  one  input  target  sct.s,  the 
f . ''or  app'1'’s.  vof  instance,  consider  Inputs  that  request  updat- 
ip,',  attribute  VALUE  to  40  tor  LYPE-TITAN  and  to  50  for  Cl ASS-MISSILE. 


TIT  Alls  «r. 

In  fe 

.les,  n.w- 

.■et  . 

-C.  ..t  . 1 

.'h  . --t)!?'- 

VA-  ir-'j 

• f*' 

rcc^T"**® 

-"■TTAf:  In  which  ». 

.Ifi  p t 

'1  cods 


....J  r.VJl'ORCC  V ji  r.^c  1,1  aL^a-  1.':: 

die  laput  request ».  .'^v  calling  subrouuin*?  s'd  upon  pror*-.?: 

jj^'lon,  tlie  changes  arz.  ina'fe  bj-  calllr^  sublet,  ^n".  . 


('^anKes  are  not  •naoe  <»*>  iea<t.  This  ?p  hec^Mst  ei  the  rule  thtt  ''r  - 
, t r '■  e . its  eoiwo’ -n’'-  be  ee„j*£.wf 

fhar.ttd  for  the  s’"  " ■''411  cf  t i 3P’'.(.npTitP  nre,  howevf  , 

by  .i.'  r tr'^’o  us  the  complex  < port  ot^  the  i.  . ; 

;r  compie  . r ar.-jee  ^ /,  are  r*  '®  first  for  l-divtj’uai  ‘aige;; 

then  for  cutgcLj  v*’  on  Ti?E,  then  C7.\SS  and  to  tv.,  local  .a-  :e 
ICBIT  equals  i,  2,  Z,  or  5 defining  if  the  detest  input  defl  ey 
targer.i  to  be  en  a region,  tt..  .try  DELiG, 

retpectlvely  basl  i . ' 'etorir  ^araiiir>e,  ce'  'ed  NO’Ct"!  (and  sss^'minp 

*■0®  s«ip«e  -.f-iiies  as  '•C'l'tTl*  is  Jeitlallv  set  to  to  show  thur  onlw  *w.*- 
opf'-  .--.iao  Sy  ngsx'l  are  to  hp  it  c.t?T’!’  does  not  cqu 

prcccsirg  ic  deicyeO  and  if  .his  ccriditio  i exists  si;.ey 
ICETLKST  (Ti.'mr)  tj  set  to  the  first  Iw^ntion  into  if.'SGUT's  &ii.iy  i 
1 j.'  inee  a h3''ge  reqiiist  at  iei’®] . 


h..ou  piucessiiig  jii_  l:.,.uts,  NCJV.'CRIT  io  dccrjcc-.iteJ  by  one  &nd  .<> 
zci;i..ttatc  - *'o_-  h»..  'vu\  -ri'-  itv. 


The  generaii?.eti  nstiiie  of  /its  det  s oot  demand  any  ore  order  of  ior 
v'afv  ition.  rost  fnj-  ep-  ^ DEi’TG  '^AlilE  Interpaction  setting 


S' V.-  way  "'Lth.h'  : """isnd  seoteufa  ■’efine  either  DESTG  or  VA  .JE 


a-iy;  netthr^v  ■•Vr  o"  ^oput  is  move  oovr.rfnl  than  '_he  ovhev.  '7 
fo*‘p  t^e  aoo-tgii  finiMt  verog*''«2e  that  rl'angos  may  not.  be  honored  uvi 
.ir  errery  d«  v han  b'i**"  •■e  »d,  Accor  if -gly,  the  fo’.lowirg  parameter! 
ir_d  tc  ccv;ci_.  processing* 


IFAOTi?’ 


- , •ip'Ictivg  at»''ihute  /ALUE 

••*2,  "ptiatlng  atcricyto 
“ •;*/ ' itinfj  a***‘-''hnte 

.',y.iat.ing  attrl'/nte  tnH'H 


v%.r.'  t 


• -1^,  a t.hael  of  v .-get.®  percolnlrt;  ro  I’t  ' yvf 
fc'to'v  r.88  iir'  lec..  read 
» , a atlDuet  of  t— gs'  - h's  he*'"  r>‘a-'  aid  o.' 

th®  co''~e'‘  r.' 'e’oijjp 

*2  a snhiGt  of  to -gets  hj  . .i  ..—a  Lut  __  

not  -he  coiv!'.t  j , r . .tiv  ((. 

erre  V S8  'Iftte-  te■i^.  Reauest  ■•  *.  • 
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< 'i:!  \ -t  > 

s. 


I 


o IFACFL/SG  - “O,  aii  Ptvclbuct  to  nc 

-1 , aa  c ’ J ' -e  tv. 

may  be  processed 

=>2,  an  attribute  to  be  changed  has  been  ri'en 
a typographical  error  exists 

Upon  proper  condlt  inris , a change  request  Is  honored.  If  <i.i  irdivld 
target  record  is  to  ho  •njdated  (ICRIT=1'i,  tho  ’--’cor .J  ig  retrieved  s*'’ 
MAKUCHG  is  called  for  target  modifications.  Ccherwise  u'ue  1^*1 

get  record  level  umst  be  retrieved,  tor  subrcutlae  MAKLCrG  wi  chet. 

uiiC  ...Licilv idual  target  recoid  v..aain  with  the:  wti..^uiupLian  u.e  i.e^t 
IDS  record  level  has  been  retrieved. 

Subroutine  FACTORCC  Is  Illustrated  In  figure  11. 


Yes 


( 


“^TART 


) 


Figiir*"  11.  Subroutine  FACTORCC  (Part  1 of  101 
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Figure  U.  (Fart  5 of  10) 
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i.all  Sl.OG 
to  Pack 
IVyHOB  and 
ISPEC  Arrays 


Value  Input  \ 
A Weapon 


Retrieve 
Target  on 
CALC  Chain 


Retrieve 
Target  Class 
Header 


Do  1590  For 
All  Target 
Classes 


Tercet 

Exist? 


Call  NpyTTP 
for  Next 
Target 
Type 


End  of 
Chain? 


MAKEC 


I 


r 


2-5.3  Subio-utlrie  FIJ^P 

JIURP&S2:  T'^  r<>a'^  and  process  fl>  assi ^ronent  re<)ne8t£ 

entkx  POjJii  fii;wc.p 


] FORMAL  r.\aAjif.rEF.c- . 

I 

j 

I COMMON  BLOCKS: 
j SUBROUTINES  CALICT: 


LOCFIX  - Pointer  to  INSGFT's  airays  for  locate- 
of  'FIX'  adverb 

CIO,  C30,  ERRCOM,  MFIXES,  NFIXREQ,  OOPS 

CTNSGET,  direct,  head,  KEYMaKK,  IPUT.  MOrr:', 
JF/TTT,  RETRV,  STORE 


j CALLED  BY:  PARTA 

I 

I Method: 

I 

Subroutine  HXWEi  creates  record  type  FIXASG  records  for  all  user 
requested  fix  asslgionencs  as  defined  by  a clause  introduced  oy  tde 
i adverb  FIX.  Each  created  record  stores  the  weapon  group  number  and, 

I if  defined,  tre  do\jn  tiire, 
i 

' One  word  of  in  format  •for  Is  defined  for  each  oeapon  assigned.  This 
i vord  contains  the  eroup  i umber  of  the  weapon  to  be  fixed  in  the  first 
' '••tjvpe  character^.  Tl’e  lower  18  bits  csn  be  used  to  specify  the  arrl- 
I »-al  time  (in  minutes)  of  c mioslle  weapon.  If  the  lower  18  bits  are 
{ left  blank,  the  launch  timlrp,  for  the  weapon  will  be  calculated  In  the 
j norm’*]  nanner.  If  an  arrival  time  is  specified,  it  takes  precedence 
» ower  sTl  other  ' awich  timing  considerations, 
i 

The  i TX  clause  vecognt^es  attributes  DESIG,  GROUP,  and  the  optlcncl 
j dovnitlme  attrif-nte  ARRTVF.  Insertion  of  values  for  these  two  attributes 
I fand  optionally  three)  is  sufficient  for  record  creation.  However,  t 
I provide  ease  of  Input  values,  the  user  mav  speclfv  two  DKSIG's  tor  one 
GROliP  Input.  This  nwvle  •'f  operation  InirHes  that  s range  of  fixed 
asa-'o-aaents  will  he  <r.^tl  • and  that  lauge  defined  as  ali  the  targets  (' 
fall  within  th»-  Interv-l  -f  the  two  DFSIGh.  Ihc  mibiou.  iuc  tirst  r>' 
FNcsr.FI  * arraya  and  • hc-cWr  ' it  .nlura  nt,  . asaiy  Mt'rtbulea  an<'  th 

tf  errni  (re*  , w tix.d  au  ly -r^'nt  re<nT'  li,  iroatt  . 

j Ine’e  atirihui*  a C 1 r*  ti.  a-  I*  • 

* c »■  i ' V 'll 

• »l  aPs»'»tK*-*»  .r*a  a-  ..  i-a  • 


tee 


• • • 


I 


o TERDESIG  - Set  to  the  value  of  the  second  DESIG,  ff  it  exists 

o KGROUPNO  - Requested  weapon  group  number 

o lOPTION  - =L,  at  start  of  each  phrase; 

=2,  if  a range  of  DESIGNS  was  input 

=3,  if  ARRIVE  defined 

=4,  if  range  of  DESIG' s and  ARRIVE  defined 
Fixed  assignments  are  now  stored  within  the  data  unless: 

a.  If  an  attempt  is  made  to  fix  a bomber  weapon  on  a target  with 
more  than  30  fix  requests,  the  request  will  be  ignored,  since 
only  targets  with  terminal  ballistic  missile  defenses  undergo 
a saturation  m ssile  attack.  The  allocation  procedure  will 
not  allow  a bomber  to  participate  in  such  an  attack 

b.  If  an  attempt  is  made  to  fix  more  weapons  than  are  present  in 
a group,  the  excess  requests  are  ignored 

c.  If  two  DESIGs  \^ere  input  and  the  alpha  portions  did  not  match, 
the  requests  are  ignored 

d.  If  non-lead  (either  for  conqjlexes  or  multiplier)  targets  were 
to  be  fixed  and  the  representative  target  could  not  be  found, 
the  request  is  ignored. 

e.  If  the  target  record  or  if  the  group  number  is  invalid,  the 
request  is  ignored. 

Subroutine  FIXWEAP  is  Illustrated  in  figure  12. 
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Set  Flag 
(lOPTION)  Which 
Controls  Flow 
of  Processing 


Call  CINSGET 
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F.eletlonal 
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Call  CINSGET 
to  Read 
Input 


Call  CINSGET 
to  Read 
Input 


Input  \ 
Attribute  \ 
DESIG?  7 


First  DESIG 
in  Phrase? 


Set  Flag 
to  Indicate 
String  of  DESIGs 
Input 


Print 

Error 

Message 


Print 

Error 

Messages 


Print  Fix 
Assignaent 
Data 


Input 
Attribute 
» GROUP? 


i Yes 

store  Weapon 
Group  Number 

I KfcluRN  ) 

V y 


’ Ipu’  I . ( rat  r 2 f>t  6' 


Input 

Attribute 

-ARRIVE? 


Set  Flag 
to  Indicate 
Arrival  Time 
; n.-'ut 


2.  - .4  a ibrc  ;tlufc  ’’^/  ECflC 

PURl’CSE : mfike  changes  to  th?  dat-f.  base  for  valid  ^arfor 

ci.'>'’’Ce  ii.rjuescs 


ENIKY  POINTS-  lAKEChC 


ICRIT  -Indlcafeu  'ype  of  subset  of  targets  to  be 
changed  (1,  2,  3,  4,  5 for  region,  count-.-j 
location,  clars,  type,  single  target, 
respective iy) 

RUOPJ>  -Value  of  s ibset 

iv,\r,TCS- Indicates  tttribute  to  be  changeo  (x,  2 
",  4 for  i.Ub,  Mj.>i<iLL,  yiAKKlLL,  heigh; 
of  burst,  ’■espectively) 

TACWORP-Hev  value  of  attribute 


i COlflON  BLOq^S:  CIO,  C30,  fUMNEW 


t 


DtfECT,  K£Au,  MOOfi,  NEXITi 
FAcrOROG 


i Method; 

I 

MAi'W'h.  • i»  di  lias  Largei;  record  as  Hre  'ted  by  subrout ■‘.re 
i "VJIORCG.  Dependir;?  -.jnen  the  level  of  orocesaing  (parair^ter 
I either  the  TGTTGT  or  TGITEC  ol.nin  is  cp’e  ;led.  whea*  FACTORCG  calls 
I M^XECHG  the  correct  next  hlgucst  IDS  record  has  been  defined,  by 
* i-  ioplng  through  the  ^‘■'-rets,  rvidlficatior  ts  accomplished. 


If  s fsefor  Is  changed  . the  main  target  of  a complex,  the  factors  i- 
eaci'-  tociponenf  are  changed  appropriately.  Tor  example,  If  the  value  f 
the  romplex  is  doubled,  the  value  of  each  component  is  doubled.  Thl ■ 
j procedure  Is  foil  wed  to  allow  the  user  ;o  change  one  factor  for  the 
entire  complex  and  other  factors  by  component.  If  a factor  la  chauf ed 
I for  H complex  f oirpcnen  <hc!lvl dually  (net  thtcugh  tiie  uiain  target) 

I that  factor  Is  ^necked  on  <11  tiie  iemauriit>g  c.uiuponecu s . ihe  method 
, vif=^d  in  dcter.^lr.  tt  g VALUl' , 'fltfullt,,  si  '"AXklL..  fo  a cOTuplex  target 
is  identical  to  tout  ut -t!  J r.uhroutlne  Vl.dOMP  of  module  1 
i I.elght-of-bursL  sped  t-tl  rs,  only  u mum  coigtL  of  a rv;>!'plex  is 
j '.lacked. 

j 1 attribute  VALbe’  la  roe  factor  to  he  v-'datKO.  pHiareter  SUMNEW  1 re- 
j defined  for  further  ••  ;;i.i  dring  calcula^tcrs. 

I 

V'',icne’''‘’r  • *'%  ‘ ■ t-  r'  s g ' or  a tar^,  , tot  attr  .e  IDHCI  1- 
Vatked'  eo  ri-sr  th"  °<*mp  ficV’  i is  not  hanged  sgatr  hy  a change 
request  oi  I -<•  v orlorluy.  I )HOB  is  ''aa'keu'  bv  r o Utng  a ’ in  so 
octal  dtglt  • ? show,  be  •n;; 
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AO'AOSH  220  COMMAND  AND  CONTROL  TECHNICAL  CENTER  WASHINGTON  0 C F/6  15/7 

THE  CCTC  QUICK-REACTING  GENERAL  WAR  GAMING  SYSTEM  (QUICK)  PROGR--ETC (U) 
APR  78 

UNCLASSIFIED CCTC-CSM-MM-9-7A-V3-3  M 

2°^2 

' 

A0S4220 


Position  of  Octal  Digit 


000  001  000  000 
000  010  000  000 
000  100  000  000 
001  000  000  000 

} 

IDHOB/MSHTFT ( IFACTOR) -8*IDH0B/MSHTFT(IFACT0R+1)  I 

il 

merely  yields  the  value  to  the  appropriate  octal  digit  (of  IDHOB)  given 
IFACTOR. 

Subroutine  MAKECHG  is  illustrated  in  figure  13. 
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Figure  13.  (Part  A of  5) 


2.9,5  Subroutine  PENROTJT 


PURPOSE : 

ENTRY  POINTS; 

FORMAL  PARAMETERS; 
COMMON  BLOCKS; 

SUBROUTINES  CALLED; 
CALLED  BY: 


To  compute  penetration  corridor  data  and  vnrlte  It 
on  BASFILE 

PENROUT 

N - Pointer  to  /HAPPEN/ 

CIO,  C15,  C30,  CHARTER,  CORRCHAR,  CORRTWO,  HAPPEN, 
lONPRT,  KORSTYLE,  NDUMCORR,  NUMCOR,  PCVALUES 

DTSTF,  HDFND,  NEXTTT,  RETRV,  WRARRAY 

PARTA 


Method: 

Penetration  corridor  data  Is  retrieved  and  stored  In  working  arrays  for 
eventual  write  onto  the  BASFILE.  For  each  corridor  the  following  data 
are  computed:  length  of  corridor,  number  of  defended  areas  in  corridor, 
length  of  each  defended  area,  and  the  attrition  In  each  of  the  areas. 

A corridor  Is  processed  through  all  of  Its  routing  points  (doglegs) 
accumulating  the  lengths  of  the  legs  and  locating  the  corridor  entry 
point.  Also,  a count  Is  made  of  the  defended  areas  In  the  corridor, 
where  a defended  area  Is  defined  as  one  or  more  consecutive  legs  with 
attrition.  The  length  of  each  area  and  Its  attrition  are  computed  and 
all  of  the  data  computed  above  are  stored  In  common  /CORRCHAR/. 

As  each  corridor  Is  being  processed,  the  coordinates  and  length  of 
each  leg  are  stored.  Also  a cell,  JAPTYPE,  Is  set  to  designate  whether 
the  leg  Is  the  beginning  or  termination  of  a defended  area.  These  data 
are  then  stored  In  common  /HAPPEN/.  Since  the  data  In  /HAPPEN/  are  not 
Indexed  by  corridor,  for  each  corridor  a pointer  to  the  /HAPPEN/  arrays 
and  the  number  of  entries  for  the  corridor  are  stored  in  consnon  /CHARTER/. 

Subroutine  PENROUT  Is  Illustrated  In  figure  14. 
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Figure  14.  Subroutine  PENROUT  (Part  1 of  3) 
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2 . 10  Subroutine  WUPPREP* 


PURPOSE: 

To  compute  weapon  group  data  and  write  it 
BASFILE 

on 

ENTRY  POINTS: 

WEPPREP 

FORMAL  PARAMETERS; 

None 

COMMON  BLOCKS: 

ASMTYP,  CIO,  C15,  C30,  CRLENGTH,  GAMEVAR, 
ISIMIYPE,  ITP,  LHVALUES,  MYIDENT,  NUMCOR, 
RFPOINTS,  SALVO,  TWORD,  WPNGRP,  UPVALUES 

lONPRT, 

PAYTYPE 

SUBROUTINES  CALLED: 

DIRECT,  DISTF,  HDFND,  HEAD,  ITLE,  MODFY, 
RETRV,  WRARRAY,  URWORD 

NEXTTT, 

CALLED  BY; 

ENTMOD  (of  PREP) 

Me  thod ; 

i When  WEPPREP  is  called,  BASFILE  is  positioned  inmedlately  preceding 
weapon  group  data.  By  chaining  the  weapon  group  records,  attributes 
are  obtained  and  information  stored  within  working  arrays. 

llie  number  of  weapons  in  each  group  is  increased  according  to  the  pro- 
postion specified  in  common  /GAMEVAR/.  The  destruction  before  launch 
probability  is  then  modified  by  a factor  to  maintain  the  same  number 
j ot  expected  launched  weapons  as  before. 

j For  bomber  groups,  the  basic  overallocation  is  reduced  if  there  are 
less  than  15  bombers  in  the  group.  If  so,  the  over-allocation  is 
I multiplied  by  the  ratio  of  the  number  of  vehicles  to  15.  This  has  the 
effect  of  reducing  the  over-allocation  for  small  bomber  groups. 

For  bomber  weapon  groups  that  contain  ASMs,  array  EXPASM  defines  the 
fraction  of  weapons  in  each  group  that  are  ASMs  rather  than  bombs, 

I 

! Arrays  MAXSLV  and  NSAL  are  calculated  for  salvoed  missile  groups. 

I MAXSLV  contains  the  maximum  salvo  number  for  each  salvoed  group  and 
1 NSAL  the  number  of  weapons  in  each  salvo.  The  NSAT,  array  is  packed 
into  three  words,  four  bits  per  salvo. 


j Upon  storing  all  data,  weapon  group  information  is  written  onto  BASFILE 
j followed  by  parameters  that  described  the  percentage  of  weapon  overallo 
j cation  and,  finally,  naval  weapon  group  data  is  written. 


j StibroiG  l.  e WFPPPFP  Is  Illustrated  in  figure  15. 
^ **Mair  subroutine  of  overlay  link  C. 
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Figure  15.  Subroutine  WEPPREP  (Part  1 of  3) 
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j 2.11  Subroutine  TGTPREP* 


PUR.POSE : 

To  write  the  TGTFILE  and  perform  salvo  calculations 

ENTRY  POINTS: 

TGTPREP 

FORMAL  PARAME'rER;  : 

None 

COMMON  BLOCKS: 

CIO,  Cl 5,  C30,  CHARTER,  CVTAB,  DISTEF,  DPENREF, 
GAxMEVAR,  HAPPEN,  HOB,  IIMFILE,  lONPRT,  ISIMTYPE, 
ITP,  LHVALUES,  MYIDENT,  MYLABEL,  NDUMCORR,  NFIXES, 
NUMCOR,  PCVALUES,  RANGERAR,  SALVO,  SUMNEW,  TARGET, 
TWORD,  UPVALUES 

SUBROUTINES  CALLED: 

DIRECT,  DISTF,  HDFND,  HEAD,  IGET,  IPUT,  TTLE, 
KAYMAKE,  MODFY,  NEXTTT,  RETRV,  SETURT- TERMTAPE, 
TOFM,  R’RARRAY,  WRWORD 

CALLED  BY: 

KNTMOD  (of  PREP) 

Method: 

Individual  target  related  data  is  defined  and  written  onto  the  TARFILE. 
In  addition  the  first  section  of  the  BASFILE  is  completed.  The  first 
section  contains  all  Information  up  to  the  end  sentinel  word  equalling 
RRKRRR. 

Reierence  Codes  of  target  records  to  be  processed  are  contained  within 
the  l.IXSTXX  chain.  Each  target  is  retrieved  and  attributes  stored 
Into  /TARGET/.  If  the  user  requested  a height-of-burst  for  the  target 
I being  processed,  it  is  stored  accordingly.  Also,  each  target  value  is 
I renormalized  in  order  to  guarantee  the  sum  of  all  the.  target  valxies 
I equal  1000. 

I 

The  distance  from  the  target  through  the  depenetration  corridor  and 
the  distance  to  recovery  is  computed  and  the  Index  having  the  mininum 
I distance  is  stored  within  the  target  record,  ".lie  depeuett  at  ion  point 
associated  with  the  target  is  the  point  which  minimizes  the  sum: 

(2*DISTD)  + DISTR 

wliore  DISTD  Is  the  distance  from  target  to  the  depenetration  point  and 
DTSTR  Is  the  distance  from  depenetration  point  to  recovery. 

•Msi.  the  distance  from  e ich  penetration  corridor  to  the  target  and  ihe 
I attrition  are  placed  in  the  output  record. 
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If  there  are  fixed  wcaoon  ttoa«sts  for  the  target  being  processed  tbe 
KVASGN  chain  Is  queried  for  definition  of  specified  dowucimes  anu,  if 
applicable,  the  salvo  launch  number  is  determined.  Fixed  assignment 
data  Is  also  written  onto  the  TARFILE  for  each  target. 

Finally,  the  remaining  portion  of  the  first  section  of  the  BASFThF  Is 
written. 

Subroutine  TGTPREP  Is  Illustrated  In  figure  16. 


2.12  Subroutine  PARTS* 


PURPOSE : 

To  write  the  last  part  of  BASFILE  beginning  with 
complex  target  data. 

ENTRY  POINTS; 

PARTB 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

ASMTYP,  CIO,  CIS,  C20,  C25,  C30,  CHARTER,  CLASSCGM, 
CVTAB,  ERRCOM,  GAMEVAR,  HAPPEN,  IIMFILE,  lONPRT, 
ISIMTYPE,  ITP,  IWEPREF,  LHVALUES,  MYIDENT,  MYLABEL, 
NFDCES,  NUMCOR,  PAYTYPE,  RANGERAR,  RECOVR,  SUMNEW, 
TKVALS,  TWORD,  WHTYPE,  WFVALUES 

SUBROUTINES  CALLED: 

COMPWRIT,  DIRECT,  GRPWRIT,  HDFND,  HEAD,  i.GET, 
KEYMAKE,  NEXTTT,  ORDER,  RETRV,  TERMTAPE,  WRARRAY, 
WRWORD 

CALLED  BY; 

ENTMOD  (of  PREPALOC) 

Method: 

At  this  stage  of  processing,  the  first  section  of  the  BASFILE  has  been  j 

generated.  PARTS  controls  the  processing  necessary  to  complete  the  J 

writing  of  the  BASFILE.  In  addition,  numerous  prints  are  supplied,  if  I 

requested.  | 

n 

Subroutine  COMPWRIT  is  first  called  in  order  to  generate  complex  target  I 

related  data.  Individual  targets  are  chained  and  values  stored  in  load 

array  CLASVAL  based  on  target  classes.  If  requested,  fixed  assignments  ! 

information  is  printed  followed  by  the  standard  print  defining  the 

collected  target  values.  I 

Subroutine  GRPWRIT  execution  causes  weapon  group  and  type  related  data  ! 

to  be  written  onto  the  UASFILE.  i 

Recovery  base  information  la  defined  within  arrays  DISTR,  INDCAP, 

KCBLAT,  RCBLONG  and  upon  definition  written  onto  the  BASFILE. 

j 

Finally,  tanker  data  processing  completes  the  writtlng  of  the  BASFILE.  j 

Subroutine  PARTB  is  illustrated  in  figure  17.  I 
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2.12.1  Subroutine  COMWHIT 

PURPOSE:  To  compute  complex  target  data  and  vrlte  un 

BASFILE 

ENTRY  POINTS:  CCMPWRIT 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  CIO,  C15,  C30,  SUMNEW,  TGTAR,  TWORD 

SUBROUTINES  CALLED:  DIRECT,  UDFND,  HEAD,  ITLE,  MODFY,  NEXTTT,  RFl'- 

WRARRAY,  WRWORD 

CAT.I^n  KY:  PARTB 

Method: 

Data  describing  individual  elements  of  target  complexes  and/or  elesne*'*-. 
of  multiple  target  are  collected  and  written  onto  the  BASFILE.  T’-t 
record  format  differs  depending  on  the  type  of  target.  The  Infontistl. 
must  be  written  such  that  it  parallels  the  order  as  written  onto  ■ b< 
IGTFILE.  Therefore,  as  with  TARFILE  processing,  the  LTSTX.V  chsi-’  1* 
queried  and  targets  investigated  for  being  defined  as  being  elthet  e 
multiple  or  a complex.  For  simple  targets  no  action  Is  required. 

Subroutine  COMPWRIT  is  illustrated  in  figure  17.1. 


Call  NF.XTIT 
for  Next 
Element  of 
Complex 
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j 2.12.2  Subroutine  GRPWRIT 

■.’liElPOSF.:  To  vnrite  weapon  group  data  on  BASFILE 

ENTRY  POINTS:  GRPWRIT 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  CIO,  C15,  C30,  GPVALS,  ISIMTYPE,  IWEPREF,  PAYTYPE, 

TWORD,  WPVALS 

SUBROUTINES  CALLED;  DIRECT,  HDFND,  HEAD,  FILE,  NEXTTT,  RETRY,  WRARRAY, 

WRWORD 

CALLED  BY:  PARTB 

Method; 

GRTORITE  collects  weapon  group  Information  In  the  order  as  dictated  by 
the  BASFILE.  Data  Is  simply  stored  and  written  onto  the  BASFILE. 

Subroutine  GRPWRIT  Is  Illustrated  In  figure  17.2. 
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3.4.3. 1 aTOF : This  runction  is  pertormed  in  subprogram  ALOC  and 
provides  normal  termination.  This  runction  ntay  be  replaced  by  fhe  D!.MT 
function. 

3.4.3. 2 DUMF : This  optional  function  replaces  the  STOP  function  and 
uses  utility  subroutine  ABORT  to  terminate  the  job  with  a memory  dump. 

3.4.4  Allocation  Function  - ALLOCATE  (Required).  The  QUICK  system  Is 
I capable  of  allocating  up  to  250  distinguishable  weapon  groups  against 
I a target  system  of  any  size.  It  is  clearly  not  feasible  to  keep  infor- 
mation In  memory  concerning  the  capability  of  all  weapons  with  reapect 
to  all  targets.  Moreover,  It  would  be  inefficient  to  recompute  such 
Information  each  time  It  was  required.  Hierefore,  during  the  first 
pass  through  the  targets,  subroutine  GETDTA  prepares  files  which  for 
each  target  list  the  capability  of  all  relevant  weapon  types.  In  this 
way,  on  later  passes,  it  Is  possible  to  examine  efficiently  any  desired 
allocation  of  weapons  against  each  target.  To  minimize  the  time  required 
for  the  allocation,  as  much  of  the  required  Information  as  possible  is 
recomputed  and  stored  on  these  files.  The  allocator  generates  a complete 
weapon  assignment  against  each  target  before  proceeding  to  the  next.  It 
thus  passes  through  the  files  one  target  at  a time  and  then  recycles  the 
files  as  required  Co  obtain  a satisfactory  allocation. 

The  design  of  the  weapon-to-target  allocator  utilizes  a hierarchy  of 
eight  subroutines  operating  at  different  levels  of  detail.  Figure  18 
illustrates  this  hierarchy.  The  major  functions  associated  with  tiu; e 
subroutines  are  summarized  below  and  related  to  the  overall  concept  in 
subsequent  paragraphs. 

Subroutine  MUhCON  is  the  first  subroutine  in  the  hierarchy  and  is 
responsible  for  the  control  and  adjustment  of  the  Lagrange  multipliers. 
MUhCON  monitors  the  rate  at  which  various  classes  and  types  of  weapons 
arc  being  allocated  to  the  target  system  and  makes  appropriate  adjust- 
ments in  the  values  of  the  Lagrange  multipliers.  In  this  role,  MULCON 
does  not  need  any  detailed  in fot?Tia*^ ion  onceming  actual  allocation. 

It  is  concerned  only  with  tlie  actual  rate  of  allocation  of  the  avail- 
able inventory  as  the  targets  are  processed.  To  obtain  the  assignment 
of  weapons  to  each  successive  target , MULCON  simply  calls  subroutine 
STALL  (Single  Target  Allocator^  tor  targets  without  missile  defenses, 
or  subroutines  STALL  and  DRFALOC  if  the  target  is  defended.  STALL  and 
DEFALOC  utilize  the  current  values  of  the  niultipliers  to  make  an 
allocation  to  the  next  targti.,  tl.en  return  contiol  to  MULCON.  However, 
since  MULCC'N  is  the  main  controlling  routine  it  is  con'.enient  for  it 
to  handle  much  of  the  data  input  and  output  operations. 

In  chis  second  »ole,  it  reads  ajid  vrrites  tlie  dynamic  target  data  files, 
ALOCTl  and  ALOCTAR  (or  AIOCT2)  , .»hich  contain  the  allocation  infonratior. 
Since  this  intorm.ition  -.'hengc-j  frex  pjss  to  pass,  those  files  ore  erllcd 


Figure  18.  ALOC  Calling  Sequence  Hierarchy 
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Table  11. 


Program  ALOC  Exteraal  Conmon  Blocks  (Part 


INPUT  BAS  FILE 


1 of 


7) 


2 


I 

1 


BLOCK  VARIABLE  OR  ARRAY* 

MASTER  IHDATE 

IDEOTNO 
ISIDE 
NRTPT 
NCORR 
NDPEN 

NRECOVER 

NREF 

NREG 

NTYPE 

NGROUP 

NIOTBASE 

NPAYLOAD 

NASMTYPE 

NWHDTYPE 

NTANKBAS 

NCmPLEX 

NCLASS 

NALERT 

NT  GTS 

NCORTYPE 

NCNTRY 

FILES  TCrrFILB(2)** 

BASFILE(2) 
MSLTIME(2) 
AL0CrAR(2) 

TMPALOC(2) 

AIX)CGRP(2'> 

STRKFIL(2) 


DESCRIPTION 

Pate  of  run  Initiation 
Tun  Identification  aumher 
A-tacklng  aide 
Number  of  rotite  points 
Number  of  penetration  corridor ? 
Number  of  depenetration  corri- 
dors 

Number  of  recovery  bases 
Number  of  directed  refuel  areas 
Number  of  command  and  control 
regions 

Number  of  weapon  types 
Number  of  weapon  groups 
Total  number  of  bases 
Number  of  payload  types 
Number  of  ASM  types 
Number  of  warhead  types 
Number  of  tanker  bases 
Number  of  complex  targets 
Number  of  weapon  classes  (2) 
Number  of  alert  conditions  (2) 
Number  of  targets 
Number  of  penetration  corridor 
t>’pes 

Number  of  distinct  country  codes 
Target  data  file 
Data  base  information  file 
Fixed  missile  timing  file 
Weapon  allocation  by  targets 
file 

Tcsnporar''  allocation  file 
Alloca*'lon  by  grnun  file 
Strike  file 


Parenthetical  values  indicate  array  dimensions.  All  other  elements 
are  single  word  variables. 

In  two-word  arrays,  first  word  is  fllehandler  buffer  usage  number; 
second  word  is  maximum  file  length  in  words.  Single  variables  aj e 
logical  tape  tinit  numbers. 
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Table  11.  (Part  2 of  7) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

FILES 
(cont, ) 

PLANTAPE* 

Detailed  plans  tape 

CORRCHAR 

PCLAT(3.i) 

Latitude  of  corridor  point 

PCLONG(30) 

Longitude  of  corridor  point 

ZPLAT(30) 

Latitude  of  corridor  origin 

ZPL0NG(30) 

Longitude  of  corridor  origin 

EITrLAT(30) 

Latitude  of  corridor  entry 

ENTL0NG(30) 

Longitude  of  corridor  entry 

CRLENGrH(30) 

Distance  from  corridor  entry 
to  corridor  origin 

KORSTYLE(30) 

Power  of  y versus  x 

ATTCORROO) 

High  altitude  attrition  per 
nautical  mile  unsuppressed 

ATTRSUPF(30) 

High  altitude  attrition  per 
nautical  mile  suppressed 

HILOATTR(30) 

Ratio  low  to  high  altitude 
attrition  (less  than  1) 

DEFRANGE(30) 

Characteristic  range  of  corri- 
dor defense  (nautical  miles) 

NPRCRDEF(30) 

Number  of  attrition  sections 
this  corridor 

DEFDIST(30,3) 

Distance  of  precorridor  leg 

ATTRPRE(30,3) 

Attrition  in  this  precorridor 
leg 

NDATA 

Number  of  words  in  common 
/CORRCHAR/ 

UlAX 

Maximum  number  of  precorridor 
legs 

PAYLOAD 

NOBOMB 1(40) 

Number  of  type-1  bombs 

IWHD1(40) 

Type-1  warhead  index 

NOBOMB2(40) 

Number  of  type-2  bombs 

1WHD2(40) 

Type-2  warhead  index 

NASM(40) 

Number  of  ASMs 

IASM(40) 

ASM  index 

NCM(40) 

Number  of  countermeasures 

NDECOYS(40) 

Number  of  terminal  decoys 

NADEC0YS(40) 

Number  of  area  decoys 

IMIRV(40) 

MIRV  system  identification 
number 

MPAYLOAD 

Maximum  number  of  payload  type; 

Ihesc  filed 

arc  output  on  magnetic 

tape. 

**  See  Program 

POSTALOC. 
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Table  11.  (Part  3 of  7) 


BLOCK 

VARIABLE  OR  ARRAi 

DESCRIPTION 

REF* 

RFLAT(20) 

Refuel  point  latitude 

RFLONG(20) 

Refuel  point  longitude 

PIANTYPE 

INITSTRK 

Indicator  for  first  or  seco  'c 
strike 

CORMSL 

Coordination  time  parameter 
for  missiles 

CORBOMB 

Coordination  distance  for 
bombers 

WPNREG 

COREL (20) 

Conmand  and  control  relialf’' 
by  command  and  control  regioi\ 

WPNTYPE** 

RANGE(IOO) 

Range  of  vehicle  (nautical 
mi les) 

CEP(IOO) 

CEP  (nautical  miles) 

SPEED(IOO) 

Speed  (knots) 

ALERTDLY(IOO) 

Alert  delav 

..  -1  ^ j 1 VUua.S) 

Nonalert  delav 

NALRTDLY(IOO) 

RANGEDEC(100)’‘ 

Low/hig'i'  al'.it.’J.'.  fuel  c ' i . 
t i on  ra  t ' o 

ICLASS(IOO) 

Weapon  v lass 

RANGEREi' (lOO)yy 

Refueled  tang,  (nau»‘icr’  '! 

REL(IOO) 

Reliabi lity 

IRECMODE  (100) 

Recovery  mode 

IPENMODE(IOO) 

Penetration  node 

LCHINTVL(75) 

I.aunch  time  interval  (mir  ' 
only)  (hours) 

SIMUINCH(75) 

Numbe.r  of  s unultaneous  launchi 
(missiles  only) 

WPNGRP** 

NWPNS(250) 

Number  of  weapotis  in  grouc 
after  rcinovsl  of  fixed  wf&t>op 

WLAT(250) 

Centroid  latitude 

* From  BASFILE  block  OPeTRFF, 

•kic 

From  BASFILE  block  WFNDATA. 

For  missiles,  this  variable  is  replaced  by  attribute  lOFMIN,  ..in- 
imum  time  for  flight  (hours). 

y For  misbiies,  this  variable  is  ceplated  by  CMiSS,  a missile  fliebt 
time  variable  computed  bv  Pl^VNSlTj’. 
yy  For  missiles,  this  variable  is  teplac.eJ  by  RNGMIN,  the  ■'.ir.iimui. 
range  (miles). 
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Table  11.  (Part  4 of  7) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

wracRP 

WIY)Nr.(,?SO) 

Centroid  longitude 

(cont. ) 

IRKCC^SOl 

Conmand  and  control  region 

lTYPE(2‘iO') 

Type  index  (LTYPE) 

TALEKT(2'501 

Alert  status 

SBL(250) 

Probability  of  survival  before 
launch 

I REFUEL (2 50) 

Indicates  refuel  code  for 
bombers  or  payload  index  for 
missiles 

Y1ELD(250) 

Weapon  yield  (megatons) 

REFTIME(250) 

Refuel  time 

EXPASM(250) 

Fraction  of  weapons  in  group 
that  are  ASMs 

TKNAVAL* 

PKNAV(250) 

Single  shot  kill  probability 
against  naval  targets 

CTl'RYCD 

(rrRYCD(150) 

List  of  distinct  country  loca- 
tion codes  on  defending  side 

Asm** 

TAMSM(250) 

Index  to  ASM  table  for  each 
group 

YLD(50) 

Warhead  yield  from  warhead 
table 

1WHDASM(20) 

Index  to  warhead  table  for 

ASM  warhead 

REIASM(20) 

ASM  reliability 

CEPASM(20) 

Circular  error  probable  for 

ASM  delivery 

rA\1)ATA 

PAYALT(40) 

Bomber  weapon  release  altitude 
indicator 

HOB 

1J(TSPKC(3) 

t/iglcal  array  set  true  for  user 
specified  HDB  by  weapon  type 

IJ(IWHOB(3) 

Logical  arrav  designating  user 
specified  HUB  by  weapon  type 

* 

K i 1 till 

LALFILE  block  NAVAL. 

** 

r rum 

BASFILE  blocks  WPNGRP,  WARHEAD, 

ASMIABLE. 
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It 


BUICK 

VAKIABLE  OH  AKHAY 

DESCRIITION 

C222 

WTt’AC(3) 

Divide  into  old  target  wciputs 
for  coiinnensurabi  1 it  y 

WTRATEO) 

Rate  of  increase  of  target 
weights 

WTSUM(3) 

Sum  of  target  weights 

JATTRIB(t>,  250) 

Index  to  local  multiplreis  inr 
weapon  group 

RUNSl)Mi380,3) 

Runnrng  sum  or  target  wergiU 
times  weapons  ailocated  lot 
local  muitiplier 

ALLEREST(380,3) 

Estimate  of  allocation  eriui 

LA(380) 

Value  of  local  multiplier 

MXATTRIB 

Maximum  number  of  local  atlii- 
butes  (Lagrange  multipliers) 

C333 

NWP(IO) 

Number  of  weapons  in  TOA  set 

VAL(IO) 

Unattrited  target  value  at 

TOA  tor  eacli  set 

V(11.2) 

Unattrited  compoueui  at  i't'A 
for  eacli  set  N aiui  each  liard- 
ness  component 

MU(10,2) 

Sum  of  moans  tliroiig.h  each  TOA 
set 

SIG(10,2) 

Sum  of  variant';  through  t.a».h 
TOA  set 

SOU. 2) 

Ci'mponeuL  survival  prohabiiitv 
lluougli  each  TOA  set 

VS(10,2) 

» i.V(N,JlO-Vt,N+l  , JU))*S(N,JH' 

VSN(11,2) 

= VSN(N-l,  lil)+VStN-i, 

IT0A(250) 

I'OA  index  lor  weapons  in  po 
il  added 

1ADDT'OA('250) 

Set  to  1 ii  new  TOA  set  is 
required 

S1GP(250, 10,2) 

Inciease  in  variance  for  caci 

1 cA  sot  N if  we«»  'on  is  added 
liom  gLoup 

SiGPiiO, iU,2) 

tibange  in  variar.ee  foi  e<ii  1 
lOA  s, 1 if  weapon  ueleto. 

l)SlG(2iO,2) 

daiiante'  coi  l rj  but  ion  l.oi  wtw- 
pon  . spocifieil  weapon 

C333* 

LXFUG0K(63) 

U'glcal  arrav  sot  true  oi.l>  if 

Weapons  f roir.  group  can  ''c  allo- 
caieil  to  targi.t-  with  ihts  i gnat  oil 
fl.ii’  coJe  (nine  flag  codey  pet 
group) 

I'liis  version  of  (Wit  Is  use<l  Juring  tlie  in(nit  p'  ise  oi  \P'  ^ i.  : 

subroutine  GfcTDTA  during  the  first  pass. 
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Table  12.  (Part  3 of  11) 


BU)CK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

C333 

LXCTRY0K(1042) 

Logical  array  set  true  only  if 

(cent . ) 

MYNMIRV 

weapons  from  group  can  be  allo- 
cated against  targets  designated 
country  code  (150  country  codes 
per  group) 

Number  of  MIRV  systems  in  list 

MYMIRV(IOO) 

IMIRV  system  number 

NPERMIT(IOO) 

Number  of  permitted  classes 

MYPERM1T(100, 16) 

Hollerith  names  of  permitted 
c lasses 

LXTBMDEF(3) 

Logical  array--true  if  defence 
targets  are  permitted 

LXMIILTARG(3) 

Logical  array-true  if  multiple 
targets  are  permitted 

MAXM I RV 

Maximum  number  of  MIRV  systems 

MAXNP 

Maximum  number  of  permitted 
classes 

KANGtMUL(250) 

Multiplier  for  unrefueled 
range  for  group 

RANRFMi.L(250) 

Multiplier  for  refueled  range 
for  group 

RANGFJMIN(250) 

Minimum  range  (nautical  miles) 
for  group 

C333* 

IJCFLAGR(l) 

FLAGOK  array  for  one  group 

LXCTRYR(5) 

CTRYOK  array  for  one  group 

NPM1T(1()) 

MYPERMIT  array  for  one  group 

NmiT 

NPERMIT  for  one  group 

TBMD 

TBMDEF  for  one  group 

MULTG 

MULTARG  for  one  group 

RMUL 

RANGEMLIL  for  one  group 

RFMUL 

RANRFMliL  for  one  group 

RXMIN 

RANGEMIN  tor  one  group 

FILL3(3052) 

Dummy  array  used  to  retain 
common  block  length 

0333** 

VTDX 

Surviving  target  value 

RATM 

Maximum  missile  rate  of  return 

NOWEP(250) 

Number  of  weapons  (from  a 
group)  assigned  to  target 

v» 

I'llUSl 

variables  ( LXJ'  l./\(  ;R  -RXMIN) 

used 

only  in  subroutine  GETIDTA. 

** 

A riHio 

.Uritioii  of  cvimmon  block 

/C333/ 

used  only  in  subroutines 

I'RiVINoW.  KOSVAL,  and  niaAU)C. 
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lablc  iil.  (.Fart  4 of  11) 


1 


BLOCK 

VARIABI.E  OR  ARRAY 

DESCRlPTluN 

C333 

RATE  (2  50) 

Rate  of  return  for  Rroup 

(cont. ) 

1SALFX(250) 

Average  salvo  number  of  fixed 
salvoecl  missiles 

NSL(250) 

Number  of  weapons  available- 
in  salvo.  (Set  to  1000  loi 
nonsalvoed  groups) 

FILLJD(5742) 

Dummy  array  used  to  retain 
Common  block  length 

DEFENSE 

NTX(3) 

Estimates  of  terminal  inter- 
ceptors present 

PX(3) 

Probability  that  NTX  occurs 

PKTX 

Terminal  interceptor  kill 
probability  against  unhardened 
warhead 

RX(2) 

NT'X/MISDEF  for  upper  and  lower 
deviations  irom  MISDEF 

PRX(2) 

Probability  there  ire  RX*1!1SDEK 
interceptors 

RADPX 

Probability  of  waidic  id  kill  by 
random  area  del'ense 

TINT' FAC 

Multiplier  lot  terminal  inter- 
ceptor defense  levels 

FIXED 

Ib’W(31) 

Group  numbers  ol  weapons  fixed 
this  target 

TIME  (30) 

Specified  arrival  time  of 
fixed  missiles 

NFIXWPS 

Total  number  oi  fixed  missiles 

SX(5) 

Scratch  array 

IFIXBEG  1 

Pointers  to  input  data  tor 

IFIXEND  j* 

f ixed  weapons 

SAVFIX 

I ADD  J 

I^ogical  \'ariable  set  true  only 
il  fixeii  iiiihslle  assignments 
ai  t to  oe  out  pul.  on  MSLTIMF 
tile 

If  negative  --  no  tlxed  assign* 
nuMit  s fi  tun  iGTFlLE 

1 If  zero  --  fixed  assig:iment.s 

1 accord  i ng  to  TGl'F  ILE 

FIXEDASS 

NI.FTAR 

Ntiinbor  01  fixed  ass  igumetil  s 

for  thi':  t .irr.ci  on  TCVi'!  M 
Halt  li.iv*-,-  not  vi't  I'oeu 

in  'CCS>^i.-v.l 


143 


CH-3 


Table  12.  (Part  5 of  11) 


BLOCK 

VARIABLE  OR  ARRAY 

FORMTT 

INWORD 

INFORMAT 

LAMBDA 

LAMEF(250) 

SURPWP(250) 

PREMIUM(250) 

DPREMIUM(250) 

LOCFIL 

WPNTGT 

ALOCTl 

ITMPMSL 

MACHINE 

IREAD 

IWRIT 

IRINCH 

MULADJ 

MINT PRD 

RINTPRD 

RATIOINT 

SNSTVTY 

FSNSTVTY 

SETTLE 

Bl’ENFAC 

NALLY 

NALL  (2  50) 

RNALL(250) 

DESCRIPTION 

Input  word  value 

Hollerith  code  for  appropriate 

10-column  format  for  input  word 

Value  of  Lagrange  multiplier 
for  each  weapon  group 
Estimated  surplus  for  weapon 
group 

Premium  for  using  weapon  group 
Premium  for  deleting  weapon 
group 

Current  WPNTGT  file  in  use 
Filehandler  buffer  utilization 
number  of  ALOCTl  file 
Buffer  number  for  temporary 
MSLTIME  file  (unordered) 

Logical  unit  number -standard 
input 

Logical  unit  number -standard 
output 

Logical  unit  number-standard 
punch 

Number  of  separate  integration 
periods  used 

Controls  ratio  between  inte- 
gration periods 
Ratio  of  controlling  integra- 
tion period  to  that  implied 
in  allocation  riles 
Rate  of  multiplier  convergence 
relative  to  the  significance 
of  errors 

Final  rate  of  convergence  rela- 
tive to  number  of  targets 
Number  of  cycles  for  multi- 
pliers to  settle  to  closing 
Multiplier  for  bomber  attrition 
rates 

Number  of  weapons  allocated 
this  pass  from  each  group 
Number  of  weapons  now  on  all 
targets  from  each  group 


Table  12 


(Part  C of  li) 


BLOCK 

PAYOFF 


PEN 

PRINEED 

PR  INI 

PRNTCN 


VARIABLE  OR  ARRAY 


DESCRIPriON 


OPROFIT 


S PAYOFF 
SUMCOST 
S PROFIT 
SUM  PR  EM 
T BENEFIT 
NAT 


PENALT(30) 


N 

G 

STALPRIN 


IFRSTPR 
100(40  I 


TNDEXPR(401 

.1  PASS  (40) 

JTGrP(40) 

LPASS(40) 

LTGT(40) 

KTG^FR^■X)(4^)) 

T COUNT ( 40 ^ 

MYPRT(40) 

MAXRl'X) 

MPRNl 

NRHQ 


Profit  for  hold  allocation 
(last  pass)  evaluated  with 
present  values  LAMEF 
Cumulative  payoff  all  taritets 
Cumulative  cost  all  targets 
Cumulative  profit  all  targets 
Cumulative  premiums  all  targets 
Total  benefit  this  target 
Nvimber  of  attribute  categories 
(currently  6) 

Temporary  storage  for  penetra- 
tion probabilities  for  each 
corridor 

Weapon  group  index 
Weapon  group  index 

Print  indicator  showing  loca- 
tion in  STALL  processing 

Initialization  trigger  for 
subroutine  PRNTCON 
Contains  optional  print  flags 
(set  to  3 i f I riff  acti->’r,  ' 
for  i pact  wo) 

Requested  option 

First  pass  to  activate  request 

First  target  to  activate  request 

I/Hst  pass  to  activate  r.tqucst 

l.ast  target  to  activate  recue  t 

Print  frequency 

Numt)er  of  targets  jirof  essoil 

since  las*  pijiit 

K(V|ri,'St  setting  mode  tUEFAIIli 

or  jNrniT) 

Maximum  nimtber  of  print  request  r 
Maximum  number  of  print  opt  i tins 
Actual  lumibei  of  print  requests 


) 

; I 


i 

i 


. i 


I 
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11  LUCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

I’RNTWADD 

IGl  1 
J1 
t:i 
xiai 

Si 

VSNl 

1G2 

J2 

N2 

NW2 

* 

Internal  indexes  used  in 
optional  prints  from  subroutine 
WAD 

PRTMULL 

NTATTRIB 

Total  number  of  local  multi- 
pliers 

PROCMULT 

Target  multiplicity  now  pro- 
cessed this  targe 

ERRCLOS 

Factor  which  controls  the 
termination  of  the  allocation 

(;U)SER 

Controls  increase  in  closing 
force  per  pass 

DELTEFF 

Increase  in  profit  from  last 
pass  divided  by  VALWPNS 

SDELTEFF 

Cumulative  DELTEFF 

VALWPNS 

Value  of  all  weapons 

VALERR 

Value  of  surplus  and  deficit 
weapons  combined 

SALVO 

MGSAL 

Maximum  lumiber  of  salvoed 
groups  (75) 

M/\XSAL(75) 

Maximum  salvo  number 

NSALAL(450) 

Running  sums  of  salvo  allo- 
cation (six  words  per  group) 

LXI1!AVE(50) 

Logical  array  sc.  true  only 
i L salvo  lias  some  weapons 
available  (24  salvoes  per 
group ) 

SAVLAM(250)* 

Temporary  storage  array  for 
Lagrange  multijiliers 

For  biHiilier  proiips  these  variables  arc  cqiiivalenced  as  follows: 

SAVlA'l  cqiiivulenccd  to  AVOF,  the  avor.n;e  damage  difference  betwern 
I'.'^c  of  ASMS  and  homhi. 

MYSAi,  rqii iva  1 cnced  to  ISETPAY,  the  bomber  payload  indicator  (zero 
1 1)  i.mtbs,  one  for  ASMs) 

I’  cqu i v.ilcnced  to  FASM,  the  fraction  of  weapons  allocated  from  a 
groni''  which  arc  ASMs 


I' 


i 

i 


1 

i 


i 


1 

j 

I 


i 

i 


'I 
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(PaiL  8 of  il) 


Talsle  12. 


BLOCK 

VARIABLE  OR  ARRAY 

SALVO 
(cont. ) 

MYSAL (2 50)* 
KEYSAL(4) 

KSALWD 

P(250)* 

SMAT 

SMAT(6,5) 

LSMAT 

SMATMIRV(3) 

SMNCMIRV(3) 

TABLE 

TABLE (101) 

WADFINAI, 

VTP(250) 

DELVT(30) 

NUMO 

IGO(30) 

TOP 

I01>S 

CTSPILL 

WADCrrX 

PVRMX 

I PVRMX 

PPMX 

DESCRlP'i'lON 

Preferred  salvo  indicator 
Packing  keys  for  salvoes 
Number  of  salvoes  in  one  word 
of  NSALA.L  (set  to  4) 

Salvo  balance  variable 

Interweapon  correlation  infor- 
mation 

Length  of  SMAl  array 
Storage  of  SMAX  values  which 
change  for  MIRV  systeiis 
Storage  of  original  values  for 
non-MIRV  systems 

Kill  factors  for  use  in  square 
root  damage  function 

Total  exv-)eoted  undo.stroyed 
target  value  with  weapon  added 
from  each  group 

Change  in  residuil  target  vnlue 

by  weapon  alloc  ition 

Number  of  weapons  assigned  this 

target  on  old  t.^rget 

Index  of  weapons  assigned  on 

old  pass 

Total  nuinbev  of  ado  and  delete 
operations  tliis  tat,,et 
Crand  total  number  of  add  and 
delete  operations 

Number  of  multiple  target  elen-eius 
postponed  tor  later  processing 

Maximum  cfricrcncy  loi  wtapee 
iiMlMX 

Weapon  group  index 

Maxii.iuni  profit  tor  weapon  iPI'M.'v 


For  bomber  groups  these  variables  are  eqn i val eiired  as  follows: 

SAVLAM  equivalenced  to  AVDF,  tbe  average  damage  difference  between 
use  of  ASMa  and  bombs 

MYSAL  etpii  val  enred  to  IStiTPAY,  tlie  bomber  payload  indicator  (zt-ro 
for  bombs,  one  for  AiTMs) 

P equivalenced  to  FASM,  the  fraction  of  weapons  allocated  from  a 
group  whicb  arc  aSMs 
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Table  12.  (Part  9 of  11) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

WADOTX 

TPPMX 

Weapon  group  index 

(cont. ) 

DVRMN 

Not  used 

IDVRMi\ 

Not  used 

DPMN 

Minimum  profit 

IDPMN 

Estimated  minimum  profit 

NUMMAX 

Maximum  number  of  weapons 
allowed  per  target 

NW 

Number  of  weapons  now  on  tar- 
get 

TPMX 

Largest  profit  or  potential 
profit  so  far 

OTOA 

Number  of  time  ariival  bins 
used 

NTOAMAX 

Maximum  number  of  time  arrival 
bins  allowed 

VTMIN 

Destruction  of  target  below 
VTMIN  considered  of  no  value 

\mAX 

Maximum  acceptable  surviving 
target  value 

ALPHA 

Value  factor  required  to  justi 
fy  VTMAX 

VTEF 

Maximum  of  either  VT  or  VTMIN 

WADWPN* 

JTGT 

Static  target  number 

INACriVE(250) 

Nonzero  value  flags  inactive 
groups 

TOA(250) 

Time  of  arrival  at  target  of 
weapons  from  each  group 

TVALTOA(250) 

Unattrited  target  value  at 

TOA  for  weapons  in  each  group 

VTOA(250,2) 

Unattrited  value  for  each 
component  at  'A  for  weapons 
in  group 

MUP(250,2) 

Contribution  of  weapon  to 
mean  i f added 

RISK(6,250,2) 

SQRTF  ( 2->>Sl'MM0DE(  GAMAMODE* 
LN(MODEK)/UNiTK))) 

* 

Thi ; block 

i.s  udcd  ap  Tn  input 

buffer  in  subroutine^  RDALCRD,  LOCRCS'.' 

FIAG.'ST,  MIRVRST,  and  KNGIJ-IOD. 

The  alternate  definition  of  items  in 

this  block 

follows  the  original 

definition. 
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BLOCK 

VARIABLE  OR  ARRAli: 

DESCKIKTION 

WADWPN 

SSIG(250,2) 

Square  root  of  -log  of  s 

(cont. ) 

MINKILL 

Minimum  acceptable  kill 
probabi lity 

MAXKILL 

Maximum  desired  kill 
probability 

MAXCOST 

Maximum  acceptable  cost  to 
achieve  MINKILL  (weapon  cost 
/target  valuel 

ILAW 

Kill  probability  law  indicato; 

MISDEF 

Number  of  terminal  ballistic 
missile  interceptors 

MORR(250) 

Preferred  penetration  cortuor 

PEX(250) 

Penetration  probabi litv 

XMUP(250,2) 

Single  shot  survival  prttbabi  1 i t . 
--  used  only  for  targets  witl 
ballistic  missile  defense-' 

JTGTX* 

Static  target  numlter  for  next 
target 

I21F.XT 

Number  of  words  in  WPIXfl’ 
record 

MINKILX 

MINKILL  tor  ut.\l  tar-  . 

MAXKILX 

MAXKILI.  for  next  target 

MAXCOSX 

M/\XC0ST  for  next  target 

NACTV 

Number  of  active  groups 
next  target 

IGX(250) 

Group  numbers  of  active  grou - 

TOAX(250) 

TOA  for  active  groups 

MORRX(25b) 

MORR  for  active  groups 

PEXX(250) 

PEX  for  active  groups 

STKX(250,2)  \ 

Intermediate  interactio: 

STK2X( 250, 2)| 

calculation  variables  for 
active  groups 

LRTMAX 

Length  of  WWl'CI  I/O  buffer 

WA.DWPN 

INPlfT(  Vt) 

Input  card  storage  arrav 

(as  redefined 

NVARS 

Number  of  parameters  on  input  ta 

in  RDALCRf), 

NAMES (100) 

Faraiacter  na;nes 

LOCREST, 

INVALI'(2,100) 

Parameter  input  values 

FIACRST , 

INOEXl  (100)1 

MIRVRST, 

JNPEX2(100) 

Array  indexes  for  parameters 

RNGl^fOl) , ) 

INOEX.UIOOM 

This  area,  from  JT(Ji'X  to  the  end  of  the  block,  is  xisod  as  an  l/T'  buffet 
for  the  Wl’NTai'  files. 

U9 
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BLOCK 

WADWPN 
(cottL. ) 


WAROUT 


f 
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Table  12.  (Part  11  of  11) 


VARIABLE  OR  ARRAY 


MORE 

NYNAME(IOO) 
MYFORMaOO) 
^m■Y?E^  ^00) 

MYVAL(IOO) 

MYGOTO(IOO) 

NDEFLT 

FILLER (7 147) 
IWARFL 


i1 


DESCRIPTION 

Input  tennination  indicator 
Default  parameter  names 
Default  parameter  output  format  t 

Default  parameter  setting 

mode  (equivalent  to  FVAL)  i 

Default  parameter  - value 

Default  parameter  - index  to  | 

variable  type 

Number  of  default  parameters  j 

Dummy  array 

I 

Logical  unit  numbers  for  the 
war  gaming  print  output. 
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3.8.10  Subroutine  SALVAL 


PURPOSE; 

This  routine  selects  the  preferred 
salvoed  missile  group,  saves,  and 
appropriate  Lagrange  multipliers. 

salvo  for  each 

restores  the 

ENTRY  POINTS: 

SALVAL,  INITSAL,  NEWSAL,  RESTORE 

FORMAL  PARAMETERS; 

None 

COMMON  BLOCKS; 

CONTROL,  DYNAMIC,  IJiMBDA,  PRINE:ED, 
WPNGRP,  WPNTYPE 

SALVO,  WADWPN, 

SUBROUTINES  CALLED: 

CLOG,  IGET,  LAMGET,  VALTAR 

CALLED  BY: 

STALL,  DEFAIADC,  WAD 

Method; 

• 

There  are  three  entry  points,  INITSAL,  RESTORE,  and  NEWSAL.  Entry 
INITSAL  is  called  at  the  beginning  of  automatic  weapon  allocation  in 
STALL  or  DEFALOC.  First,  it  saves  the  multipliers  LAM  for  each  salvoed 
group  in  array  SAVLAM.  Then,  for  each  group  and  each  salvo,  TMITSAl, 
determines  the  salvo  number  and  cost  of  the  best  salvo.  Tlie  profit  of 
each  salvo  is  defined  as 

PR.  = VTAR,  - TLAM. 
ill 

where  VTARj  is  the  value  of  the  target  at  arrival  time  of  salvo  i and 
TLAMi  is  the  value  of  the  multiplier  for  salvo  i a.s  determined  by  function 
LAMGET.  The  salvo  with  the  highest  PKi  is  selected  as  the  best  salvo. 

The  salvo  number  is  entered  in  array  MYSAL  in  common  block  /SALVO/  and 
the  cost  I..£  replaces  the  multiplier  for  tlie  group  LAM.  Entry  RESTORE 
merely  restores  the  original  values  of  tne  multipliers  (SAVLAM)  back  to 
the  multiplier  array  T.AM.  Entry  NEWSAL  checks  the  current  allocation 
and  running  sum  for  the  weapon  just  added  or  deleted.  If  the  salvo  has 
been  completely  allocated,  NEWSAL  flags  the  salvo  as  unavailable.  Entry 
SALVAL  Is  never  used. 

Entry  INITSAL 

This  entry  is  the  most  complex  of  SAIVAL.  The  local  variable  TAM 
Is  set  to  "INITSL"  to  flag  the  exit  points  aftei  statement  420  and 
at  statement  500.  The  first  processing  (DO  loop  to  statement  10) 
saves  the  Lagrange  multipliers  (lAM)  in  the  S.4VLAM  array  in  /SALVO/, 


261 


Hu'  na]or  piocossinr,  in  INfTSAl,  occurs  in  the  DO  loop  to  statement 
lOl)  over  all  the  salvoeil  groups.  Within  this  loop,  the  DO  loop  to 
--rnrement  300  investigates  each  s.ilvo  to  determine  its  worth.  Array 
rilAVE  in  'SAI.V(</  is  used  to  exclude  salvoes  from  consideration.  If 
IHAVE  (.1,  n is  false,  then  salvo  I in  group  ,1  does  not  have  any 
available  weapons  and  Is  iimored.  If  weapons  were  available,  a jump 
is  made  to  statement  A20  in  entry  NFWSAL.  That  section  of  code, 
described  later,  deierm*  ,i.  , if  the  salvo  to  be  considered  Is  over- 
allocated beyond  it#  : • i If  so.  tlu  salvo  is  not  further  consid- 
ered. If  the  salvo  is  available,  function  VALTAR  is  used  to  obtain 
VTAR  the  target  valtie  for  the  salvo.  Knnetion  i.AMGET  is  used  to 
calculate  TTAM,  the  multiplier  for  the  salvo.  The  best  salvo  is  the 
one  with  the  highest  positive  difference  between  VTAR  and  TEAM. 

Wlien  this  maximiun  is  selected,  MYSAI.  in  /SALVd/  is  set  to  the 
best  salvo  number,  I. AM  in  /I  AMRDA/  is  set  to  the  appropriate  multi- 
plier. The  arrays  TOA,  TVAI.'l'OA,  and  VTOA  'in  /WADWPN/)  are  set  to 
correspond  to  the  arrival  time  of  the  best  salvo. 

Entry  TNTTS.Ai,  is  illustrated  in  part  1 ol  tigurc  47. 

Entrv  RFSTORF 


This  simple  entry  point  uses  a DO  loop  to  statement  1000  to  restore 
the  original  values  of  the  T.agranv.e  multipliers  (SAVLAM)  to  the 
multiplier  .array  (LAM). 

This  entry  is  illustrated  in  part  3 of  figure  47. 

! ntrv  NEWS.Ai, 


This  entry  is  used  after  each  allocation  of  salvoed  weapons  to 
determine  if  tiic  salvo  is  still  available.  Each  salvo  has  a max- 
imum limit  of  over.a  1 1 ocat  i on . Before  PRlKIKESS  equals  one,  this  limit 
is  +225  which  is  the  largest  number  which  can  be  stored  in  the  NSALAL 
.array.  (A  description  of  the  structure  of  the  NSAl.AI.  array  is  con- 
tained in  the  Methc<d  section  of  Subroutine  ATIDS.M.,  in  this  chapter.) 
iilhen  PROr.RESS  equals  one,  a more  severe  ’ -i  t 's  imposed  ii.  order  to 
accelerate  closure  to  the  stockpile.  in  tins  case  the  limit  i.s 
zero.  That  is.  a salvo  is  av.ai  iai  1 e only  if  it  is  undet  a I located . 

)'o  exit  from  this  entry,  local  variable  I A>!  is  checked.  If  it  is 
"IN'ITS!  then  the  original  call  was  to  INITSAi.  and  contrcil  passes 
to  statement  220  in  entry  INITS.AT..  Tf  it  is  "NEW.SAL"  the  routine 
exits. 


*in  fine  function  ''IIWE  c i.u''!!  in ! orm."’!  ion  from  logical  array 
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SFCTTON  h. 


rF'OCrw\M  r’'M.ATn- 


1 ^ Purpose 

I 'Hie  purpose  of  preprart  KVAI.AlOC  Is  to  summarize  tlie  planned  allocaCli.  . 

j of  weapons  to  targets  and  provide  an  expected-value  estimate  of  tbi 

I suits.  Provision  Is  also  Included  to  evaluate  the  allocation  ror  vari 

) atlons  in  the  values  assigned  selected  paramet;ers  (planning  factors 

associated  with  the  weapons  arid  targets.  The  evaluation  can  be  xadt. 
i for  either  the  whole  plan  or  tor  only  targets  in  selected  countries. 

; i EVALALtX-l  may  be  run  at  two  stages  of  plan  deveiopmeiiL,  ’oeloce  progr  lU. 

! I ALOCOUT  or  after  program  PLAN'UL'l.  If  run  prior  to  the  seiecuioii  o' 

i desired  ground  zeros  (IXlZ)  for  complex  targets  (.accomplished  in  ahOuU'. 

[ the  analysis  of  aim  point  offset?  Is  not  Included.  in  this  case,  Lne 

I results  produced  by  EVALALOO  represent  an  upper  ilmic  estimate  v^hicu 

I'  assumes  that  each  target  element  in  a complex  Is  directly  tavgttoe. 

UTien  EVAf.ALOC  is  run  after  program  PlwlNOUT,  the  weapon  aim  points  oil'- 
sets  are  available  and  are  included  In  the  expected  value  computations. 

f 

I 4.2  Input  Files 

i I 

• 1 

When  program  EVAlALOC  Is  run  before  program  AUXJOUT,  the  input  files 
are  the  h.ASFTTX  prepared  by  prograip  PREPALCX;  and  the  ALOOIAK  file  pre  - 
pared by  program  Al.OtJ.  When  ■in  after  program  PIANl'l 'i,  the 
produced  by  I’l.AMOUT  Is  also  required  as  Input. 

4. 3 ‘Hitput  File 

Prograr.i  KVALALOC  does  not  produce  an  output  file  for  us.,  b'  latet  pro- 
cessors; its  sole  output  Is  a set  of  summaries  which  presetit  the  cxpoi  ti  ^ 
value  results  of  the  planned  weapon  allocati.on. 

4 . 4 Concept  of  Operation 

I Propriim  f;VALyM,(A.'.  processes  tlie  targets  one  at  a time.  For  earli  targe- 
' (or  target  element  of  a complex  tn'-get),  the  assigned  weapi arc  ic  .< 
in  and  ordered  bv  time  ot  ariival.  Surviving  target  laliie;  aiO  cali.i- 
Inted,  utilizing  the  siime  d<i.'.,uge  furctlons  used  in  p.ugram  ALOC  ha:>- 
routlne  WAUl , except  that  eurrelat loiio  are  it.uoreu.  Atuti  Cue 
probabilllv  of  each  tar.get  l.s  computed,  the  t.-uget  and  the  assigi.e.d 
: weapons  are  ciasslfted  i.'i  su-T..:a;  i 'iticr  pirp^ses.  When  all  targets 

^ >tave  lie.er  processed,  the.  c nr  "ted -vn  ’ ue.  ’rsults  are  simmari.ied  ar.d 

printed. 
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I ,,  I li>i  .11  1 'ni  1>-  Will'll  I'lVAl.Al.iK,  i.  mil  in  ( lif  I'li'il  I’l-ANOUl'  iiunlf, 

K.  ,i|v.ii  ,1  1 ! ■ Ml  mil  li.il.i  Mil'  ili'Mliu'il  lii'iii  I lu'  I’lANlAl’i:  Init  M.liiiiot  lu' 

11:. I'll  liii'i'llv.  Ilu'  riANl'At’K  ii'l  U'l'l  .s  till'  .1  1 liu'.'lt  ion  bv  .soilii'  il.i'.,  i .iili 
lliH'k  I'l  .l.it.i  ili'iU'flbi'S  .1  ill' 1 i VO  rv  voblolo  wblcli  I i\iii.'i|'Oi  I s WMilioinls  lo 
1)110  111  nil'l  l'  I .1  rv’.ol  s ^ . I'l'ii.'ii'inioii I Iv,  ill  ibis  iiioilo  ol  i'|)i'itil  Ion,  i A'Al.M.iH' 
iiiiis!  Jii'ii  I'li'oo'.;!  (ho  ri..AN  I'.M’K  .inJ  oon.stinol  I roiii  il  t\  Itlo  wliloli  roi  loots 
1 llO  1 1 lo  11  i I'O  I'V  1 .1  1 ■ ’ 

Iho  p I'oi',  1 .nil  ooii'ii'il'i  , I (Iv  iii.iiii  i'xi'ovi(  I VO  prov.rnni  KVAl.Al.l’ll,  ii  .sntiini.'i  i i ;■  1 14; , 
il.i(  i 'i.iiiil  1 i lip, , Miul  piiiK  sub  1 out  1 no  l-'.VAI..’,  .niil  ii  ooiiipiit  Inp  subionl  Ino 
l-.VAl  I’l.AN . i'.VAlAl.UC  tnoliiilos  provisions  lor  oxplorinp  t lu*  sonsllivltv  ol 
till'  lo.'iults  to  ( tio  Mssniiioil  or  o;i  1 on  1 .'it  oil  viilnos  ol  soiiio  ol  (bo  wonpoil  or 
l.ii.'.i't  p 1 ,11111 1 II.',  pill  iiiiol  01  s . It  also  li.is  (bo  .ibllitv  to  nso  all  taipols  01 
.III)  .'iiib.'U'l  ol  liirpols,  b.'isoil  on  ooiinl  rv  ooilos,  in  (bo  ova  1 nil  t I on . I'lio  pro- 
pi. 1111  oan  bi'  loovoli'il  anil  tlioso  pariiniotor  valiios  can  bo  varlo4  n;  I up  snbion- 
l inos  Wl’NMl'l'ir  .mil  I'l.lMOlMI-'. 

•V  ; 1 ii.l  1 o 1 1 I'll  abi'oo,  wlioii  1 .\'i\l  .Al  I'l'  IS  1.111  .1 1 1 o I ri.ANl'Ur,  It  Is  lu'oossaiv  to 
piopMio  ,1  now  I ill'  on  win  oil  I lio  n'oiipoii  i o- 1 a rpot  alloc. it  Ion  is  tiiipot- 
01  Ion  I I'll.  Iloo.oisi'  .1  l.iipo  .imonnt  ol  iliila  iiiiist  bo  sloroil  lo  ilosiilbo  t bo 
,1  1 ! ,'.  1 1 1 on  , sovo!  .1  1 1 I oiiis  ol  i 11 1 o nii.i  t I on  iiiiist  bo  paokoil  in  t'.icli  wonl.  I'liii. 

IS  .l.'iii  hi  I I'o  lour  p.iokin.v,  siibront  iiu'S,  I’AllK,  lU'NUl'AKK,  MlSl.l’AKK,  aiul 

i.'NrAi  Kl  i:.  Ill  till'  ovont  ilial  1 bo  p 1 o- IM  ANiHll'  oporatlon  Is  prosoriboii,  1 lio 
p.iikino,  I out  inos  art'  iiovor  oalli'il  anil  t bo  allocations  aro  roiul  1 ri'iii 
M itC  !■A^' 

0|,..'iM!i  ].  .\' AliT  tl  ipiiio  i/")  fo.iils  till'  u oi  '.'i  ponoral  control  ilata  caril 
Hill  .1010;  till-  input  p.ii  .iiiiot  01  s lli.TMAK,  ll'l’r  anil  I’KKi'AbK  I'  In  ooiiimon 

block  ill’:  ; till'  pa  r.iiiiot  o I I’KTX  in  ooniiiion  block  /MIS/;  aiiil  Iho  paiaiiiotor 
I .AW  i I i , 1 AW  I 1 1 11  coiiinion  block  '1..AW  . II  I I'orMAX  is  nopal  ivo,  it  slops 

lb.'  'loi,  I'tlioiwiso,  II  iniliali.os  1 bo  1 1 1 ob.iiiil  1 o I anil  loaiis  t bo  /I'll. IS 
,11..!  'I'.'irri)/  I oniiiioii  bl.'cks  I i 0111  I lio  liASi  ilK.  It  tho  run  is  pos  t -I’l  .ANOU 1 

■I  il  o It  i.l;.  Iho  lll'.l  , ll'YI'l  , .iiul  r;'.l.  Ill  lavs  Intii  ci’iiiinon  hloik  /I'Wl’NMOl' 

•1.'  I hov  c.in  bo  nsoil  bv  snbiontlno  liNI’Ai  kl'K  to  moil  1 I v tho  viiluos  ol  t ho 
w.'.o'.'ii  I'onol  I'll  t 1 on  probabililv  oblalnoil  1 loni  tho  1'I.AN  I'.AI'K . In  this  iiioilo, 
bVAI.ri  \M  11.  'it  calls  siibront  ino  I’.Al'K  to  l■■l'l,lo|  tho  ci'.ipoii  . Mu  at  ion  il.il.i 
I I '111  Mil'  I’l  .AH  I .Al’b . It  I Ill'll  calls  l\AI.’  ti  alii.ilo  the  .1  I loi  .11  I on  ;inil 

siitii’i'.i  r I 'o  Iho  lo'Mills.  Ill  tho  p '.  o .Al  t'l'i'IM'  I'u'.lo  ol  p 1 i 'i'  ■ s.-.  I Up  , snbroiilliu' 
r.Xt'K  .Hill  I I ■;  assoc  1 .'ll  Oil  aibionl  iin  : aio  n.  I nso.l,  .'iinl  IVAl.AliU'  I'rocooils 
iliiocll'-  I tho  I'.VAb?  call.  Atlor  I'VAM’  comp  1 o I os  it',  p rocoss  I ii,p  , I'A’AMAbi'i 
It. I. I'l  iho  noxi  ii'ior  v’.oiioral  coiilrol  ilat.'i  caiii  .iml  ii'i'o.ii.-.  tho  procos;. 
ib's.tiboil  Ill'll'  until  It  roails  ,1  c.iisl  whole  iri:rM.A\  1 ■,  no(',,ilivo. 

.'■nbio’if  no  I'Ai’  I ; n.ioi!  on  I '•  in  Iho  |>osl  I’lANl'MI'  opoi.ltion  ol  l.iALAI'i 

r \ ■'  ' • I o ' I no  • tho  ' r I ' 1 'I  Iho  t a r,i',o  1 • in  1 lu'  Al.v'i  1 AK  tile  aiul  1 1'oi  .'  1 ■ 

lb.'  I.)  I irt'.ol  all  .til'll  it.ii  a on  1 lio  I’lANlAIT.  in  that  laij',ol  oin,- 

.'  ■ It  ..iihsi  p.u  k 11.'  i.'o.'ipon  .1  I I a I 1 on  ilata  nsinp  .'.nb  1 on  t 1 iii's 

" ' U'^lkl'Abb  (.ilop  '111  nil’,  on  tho  wo.i|'on  t\po).  Al  iho  1 lino  ol 

p.'.  Ill  , biOlKl’AMi  anil  Ml.’tt.l'AKK  nso  siibionliiio  SbAKlIl  to  locale  I ho 
•Ml  l.iii,ot  nnnil'oi  .issoi  i,i(oil  With  (ho  t.iip.'t  tiiilox  niiiiit'oi  , INI'I'XNi'. 

'■  ..I'n.'i!  'll  Iho  I’IANIAI’I'.  I'h  1 s nniiibor  is  also  I'.iikoil  with  the  wo.ipon 
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Program  LVALALDC  Kxtenial  Ci)imiion 
Blocks  (,Fart  1 of  3) 


JNfl’l  rHQM  BAS  FILE 


BLOCK 

VAKIABLE  OR  ARRAY* 

DESCRIPI'ION 

FILES 

TGrFiLE(2)* 

Target  data  file 

BASFILE(2)* 

Data  base  i nfernia!  i cr.  Ill 

MASLTTMF(2)* 

Fixed  missile  tiipiug  file 

AL0CfAR(2)* 

Weapon  allocation  by  tar- 
«tets  f i I <• 

TMPALOC(2) 

Tertiporarv  allocatI<n  file 

AU1CGRP(2) 

Allocation  by  group  f i 

STRKF’IL(2) 

PLANTAPE** 

Strike  file 

Detailed  plans  tape 

ASM! 

IAMSM(200> 

Index  to  ASM  table  for 
each  eroup 

YLD(50) 

Warhead  yield  from  warhead 
table 

IWHDASM(20) 

Index  to  warhead  taMi-  lev 
ASM  warhead 

RELASM(20) 

Asm  relaabiiity 

CEPASM(20) 

Circular  c ror  probable 

for  ASM  delivery 

i 


INPGV  FROM 

PIANTAPK 

BIjOCK 

VARIABLE  OR  AKRA.Y 

DESCKIITION 

'N/ 

LGRP 

Weapon  group  index 

KURD 

Ctirridor  inde-  number 

TMLAliN 

Missile  Lime  oi  launch 

mn'(da> 

Missile  flight  tinu  ci' 
bi'mher  / 1 anker  time  sic 
last  event 

KPL(‘K)I 

Place  or  site  index 

JTP(90) 

Missile  index  or  event 

tape 


Parenthetical  valuea  indicate  array  •!  Lmo.isions . All  other  elciTr.t.  ' arc 
single  wcrvi  varlihicj.  in  L«;o-woiJ  aiiavs,  first  word  is  logical  'init 
nii'iibe.r,  accond  word  is  ''im.-.  ftii'im  file  length  ia  words.  Single  va’-i  ,ih  1 o- 
are  logical  unit  n ii'il  or  s . 

Tliese  files  are  output  on  inarnetic  tape. 
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Table  17.  (Part  2 of  5) 


PU.>CK 

VAK1A15LE  OR  ARRAT 

DESCRIPTION 

/ N ' 

HJACvO) 

Event  latitude 

(coiu  . ) 

Event  longitude 

T/:i  (■>('> 

Missile  weapon  site  lati- 
tude or  bomber  weapon 
delivery  offset  latitude 

TZN(yO) 

Missile  weapon  site  longi- 
tude or  bomber  weapon 
delivery  offset  longitude 

Lwii(yo) 

Warhead  type  or  index 

PA(90) 

Reliability /damage  expec- 
tancy 

TCm’(90) 

Bomber/tanker  cumulative 
time  to  event 

ITt;iX(90) 

Missile/bomber  target 
index  number 

iMPUT  PROM 

ALOCTAR 

i>U)r.K 

VARIABLE  OR  ARRAY 

DESCRIPTION 

CTCmOD 

INDEXNO 

Index  number  of  target 

VTU 

Original  target  value 

M 

Number  of  hardness  compo- 
nents (^) 

H(2) 

Lethal  radius  of  each  com- 
ponent (ground  burst) 

rA(2') 

Lethal  radius  of  each  com- 
ponent (air  burst) 

VO(2) 

Original  value  of  each 
component 

TDHOB 

Desired  height  of  burst 

NK 

Nimiber  of  time  periods  (^) 

F\'AH.5) 

Fraction  value  escaping  in 
each  period 

TAll(3) 

Time  ending  each  period 

NTIM 

Number  of  weapons  assigned 

I. ON 

Number  of  words  read  from 
ALOCTAR  file  from  /DYNAMIC/ 

I.DNO 

Number  of  words  for  target 
records  on  scratch  file 

'(:(20) 

Group  number  of  assigned 
weapons 

KliRK  ( 10' 

Weapon  penetration  corridor 

RVAL(  JO) 

Relative  value  of  weapon 
allocation 

Table  17.  (Part  3 ol  5) 


BLOCK 

VARIABLE  UR  ARRAY 

DKSCRl  Pi’lON 

CTGTMOD 

PEN(30) 

Weapon  penetration 

(cont. ) 

probability 

TOA(30) 

Weapon  time  of  arrival 
on  target 

* 

DE(30) 

Survival  probability  o£ 
target  after  arrival  ol 
Weapon  1 

TIMEVAL(30) 

Survival  probability  ol 
Lijiie-ciependent  target  vain 
alter  arrival  ol  weapon  1 

MTYPE 

Target  type  name  (saiae  as 
IHTYPE  on  ALOCIAR  fire) 

INDTYPE 

Index  of  target  type  uted 
for  suitniarization 

VTOC 

Total  value  of  all  compo- 
nents of  complex  target 

ITCrriNDX 

Nuii\ber  of  targets  being 
processed;  in  IHPACKEh, 
nuinber  of  target  for  which 
PLANTAl’E  weapons  roust  he 
found 

IBGINDX 

Index  nunib->r  of  target  for 
which  PLANi'APE  weapons 
must  be  found  by  ITN^’ACKER 

ISAL(30) 

Salvo  number  of  weapon 
(zero  for  bombers  and  nou- 
salvoed  missiles) 

INl’UT  FROM 

BASFILH 

BLOCK 

VARIABLE  OK  ARRAY 

OESCRilTiUR 

(nvi'NMon 

OTYPES 

Number  of  weapon  ivies 

CEP (100) 

Weapon  CEP  (nautical  mile 

lCU'vSS(lOO) 

Weapon  ciass  index 
missile,  2 for  bomln.-is) 

RKL(IOO) 

Weapon  roll  ability 

NAMEWPN(IOO) 

Weapon  type  nar  e 

FUKC(IOO) 

Wtsapon  functlc'ii  eoue 

ITYPE(i50) 

Weapon  t\pe  oiulex 

nnL(250) 

Probabllitv  that  tlo 

The  remaining  segment,  of  /CTCTMllD/  is  us«h1  for  inti'mal  groccssiiig. 
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Table  17,  (Part  4 of  5) 


BIX'CK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

(’Vi'PNMOD 

DBT,(250) 

weapon  survives  before 

(cont. ) 

(cont. ) 

launch 

NPASS 

Number  of  times  the 
program  runs 

MIS 

NW11DS(40) 

Number  of  type  1 bombs 

NDECOYS(40) 

Number  of  terminal  decoys 

MISDEF 

Number  of  terminal  ballis- 
tic missile  interceptors 
(minus  the  number  of  inter- 
ceptors if  a DrFAIX)C  allo- 
cation) (ALOCIaK  file) 

PKTX 

INm’  FROM  PIAMIAPE 

Probability  of  kill  of  a 
terminal  ballistic  missile 
interceptor 

bu)c:k 

VARIABLE  OR  ARRAY 

DESCRIPTION 

PTAN'IUlC 

JSTDE 

Side* 

t£;hou? 

Group  index 

Lpra 

Penetration  corridor  number 

•TSORTIR 

Missile  record  counter  or 
bomber/tanker  sortie  number 

JUNTT 

Zero  or  base  index  number 

IVEIUC 

Zero  or  vehicle  index  num- 
ber 

LCIAS 

Weapon  class  (1,  2,  or  3) 

.rWTNTYPE 

Wenp'n  tyne,  index 

JREC 

Zero  or  ' < 'h  region 

TAl.KRT 

Aleit  status 

JPAYIiOAD 

Zero  or  payload  index 

JUEPEN 

Zero  or  deponetration 

LTOT 

Number  of  missiles  or  total 

LPIAN 

Niunber  oi  targets  or  total 
number  of  planned  events 

G(l) 

Missile  time  of  'aunch 

0(2),  0(3) 

Not  used 

MU)(2) 

Lower  plot  markers  fo’ 
sortie 

— — .. 

— , — __  — 

•k 

; he  scconil  worH  .i  piAOTArP  record, 

The  lirst  word,  ISORTN, 

} <. 

into  continiin  ISOR’I'N. 
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i’able  18.  (Fart  4 of  7) 


r 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

P 

YIELD(250) 

Weapon  yield  in  megatons 

(cent. ) 

(from  BASKILE) 

CLASI’YPE(2S0) 

Sninmarization  index  tot- 
aggregating  types  itit-i 
c I asse.s 

NALLTYPEd,  J;  d.270) 

Number  uf  wea[>ons  ol  istr-- 
porv  1 scheduled  against 
targets  of  typ<!  .1 

SKDWPTYr(I,.7)  (7,270) 

Nvtinber  ot  weapons  ot  cate- 
gory 1 sclieduled  ug.ttiist 
targets  of  type  J 

DELWPTYP(1,J)  (7,270' 

Yield  front  weapon  of  cati- 
gory  I against  targets  ol 
type  J 

ALLTYPE(1,J)  (7,270) 

Number  of  weapons  of  cate- 
gory 1 cieliveret)  1 1.'  target 
of  tvpe  1 

NALLCLASd.  J)  (7,50) 

Number  of  weapons  of  cate- 
gory I scheiti’cd  against 
targets  of  c’ass  l 

SK!)WPCL(1  ,,T)  (.7,50) 

Yield  fti'iit  weapon  o'  cate- 
gory 1 scheduled  against 
targets  of  class  I 

0ELWPCI.(T.,f>  (7,501 

Yield  f rc:n  weapon  ot  ea'<'- 
gory  1 delivered  agaiO'. t 
targets  of  class  d 

ALLC!AS(I,J)  (7.50) 

Number  of  weapens  ol  i-' 
gory  1 di- levered  against 
targets  of  class  ’ 

NAMKCLASd)  (50) 

Name  o!  clas--'  1 

NOFCIAS(I')  (50) 

Nutnber  ot  lai  ,'et  s in  , 

VfXIlASd''  (501 

total  tar.g,*'  value  la. 
class  1 

VOESCr.ARd)  (50) 

Tf:Tie-d(>pendcnt  valu<-  im 
target  destroyed  in  cl 

VESCClAS(l)  (50) 

rimc-di pendent  value  of 
tai.get  lemalntng  in  la 

VREMCIA8(I)  (501 

Tlme-depeiidout  vain,  '1 
target  r e(ii.\ i n i ng  in  cIa.s-. 

Sl'RVClASd)  (50) 

Perient  of  taiget  valce 
surviv.ng  In  class 

SKEl!C'.A8(l)  '.-lOI 

Mi„..t..''  cche’il»d  'I'l 
t nrge'  . la.'  e 1 

I'LiAO,AS(l)  (501 

'll  ga  1 "1  (.  ■ i re  ' e < 1 .. 

i i <1  i /St  t 
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Table  18.  (Part  5 of  7) 


1 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

P 

DLSiNOCLd)  (50) 

Value  of  target  destroyed 

(cont . ) 

PCPKMTCLd)  (50) 

in  class  I 

Percent  of  target  value 
destroyed  in  class  I 

NSUMCLASd)  (50) 

Number  of  weapons  allocated 
to  targets  in  class  I 

Sl!MCLAS(I)  (50) 

Number  of  weapons  delivered 
to  targets  in  class  I 

KCLSNGL(I)  (50) 

Number  of  targets  in  class 

I attacked  alone 

KCLSCOMP(I)  (50) 

Number  of  targets  in  class 

I attacked  as  part  of  a 
complex 

SKEDALLlJ)  (7) 

Total  megatonnage  scheduled 
for  weapon  category  J 

DELALLt,.))  (7) 

Total  megatonnage  delivered 
from  weapon  category  J 

NAHETYPE(K)  (250) 

The  definitions  of  these 
arrays  exactly  parallel 

• 

those  of  arrays  NAMECLAS 
through  KCLSCOMP,  except 

KTYP(:OHP(K)  (250) 

that  they  are  for  target 
type  K (instead  of  class  I) 

NWPNTYP(J)  (7) 

Total  number  of  weapons 
scheduled  from  category  J 

XWPNTYP(.r)  (7) 

Total  number  of  weapons 
delivered  from  category  J 

P 

PL (14038) 

As  used  in  MAKEPRFL  and 

MK  TARTAR 

Work  area  " 'r  sorts 

IlOR 

IHOB(')O) 

Storage  for  height  of 
hurst  code 

LXMYHOB 

Logical  array  giving  HOB 
(packed  into  one  word) 

KliY 

KEY.IA 

Packing  key  used  for  most 

signlficaat  part  of  target 
number  in  (.ILINK) 


KHVIli  Packing  key  used  for  least 

significant  part  of  target 
number  (TTlNKt 
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Determine  Weapon 
Type  And 
Class  Index 


Increment  Appropriate 
Entries  In  NALLCIAS , 
NALLTYPE,  ALLCLAS, 
ALLTVPE,  SKDWPCL, 
SKDWFIYP,  DELWPCL,  DELWITYP 
In  Coramon  Block  /P/ 


Increment  Yield  Scheduled 
And  Yield  Delivered 
Parameters 


Restore  Original 
Value  Of  CTMULT 


Calculate  Value  Of  Target 
At  Time  Of  Arrival  Of  Weapon 
Over  All  Time  Components 
(FVALTOA) 


Do  95  For  Each  Hardness 
Component  Of  file  Target 


KcPCore  Yield  And 
Delivery  Error 
Data  I'or  Weapon 


DIST,  SSKFC,  SSSPCALC 
Calculate  Survival  Probability 
Factor,  PRODSS,  Value  Of  Hard- 
ness Component  Destroyed 
CUMDFS,  Value  Of  Hardness 
Component  Escaping  During 
The  Attack,  aiMESC 


Calculate  Survival 
Probability  Of  Target, 

DE,  And  SuiKivdl  Probability  ' 
j (Jf  Time  Dependent  largel  I 
V..lav;  After  Arrival  I 
I iTf  The  Weapon  j 


Fii’iirf  M.  (Part  3 of  .3) 


bub tual iue  EVAL2 


•f.'i 

l-’URPOSE;  I’o  read  the  weapon  allocation  data,  evaluate  and 

classify  it,  summarize  It,  and  print  It  In  the 
summaries  produced  by  EVALALOC. 


KNL'KY  PO INI’S:  EVALZ 


PORMAL  PAlh\METERS:  None 

COMMON  ULOCKS;  ASMT,  CPP,  CTGTMOD,  CWPNMOD,  FILABEL,  FILES,  HOB, 

IIP,  LATLON,  LITTLE,  MIS,  MYIDENT,  NOPRINT,  OPT, 
P,  TWORD,  WAROUT 

SUBROUTINES  CALLED:  EVALPLAN,  GLOG,  ITLE,  LREORDER,  MAKEPRFL, 

ORDER,  PAGESKP,  PRNTFILE,  RDARRAY,  RDWOR.D, 
REORDER,  SETRliUVD,  SETWKITE,  SKIP,  SLOG,  TERMTAPE, 
TGTMODIF,  WPNMODIF,  WRARh'Y,  WRWORD 


CALLED  BY.  EVALALOC 

Method : 


EVAL2  first  reads  weapon  parameter  arrays  from  the  BASFILE.  Then  It 
initializes  control  numbers  and  the  arrays  which  will  contain  data  for 
the  suntmary  prints  to  zero.  If  this  is  not  the  first  pass  (NPASS  4 1) 
or  the  option  to  begin  to  modify  parametei^  on  tlie  trrst  pass  is  Indicated 
(JOPr(2)  = 1),  EVAL2  calls  subroutine  WPNMODIF  to  modify  the  weapon 
parameters  in  the  manner  specified  by  the  user.  in  this  way  the  sensitiv- 
ity of  the  weapon  allocation  and  the  evaluation  pet  formed  by  EVAL2  to 
changes  in  these  parameters  can  be  tested. 

If  the  run  uses  the  weapon  allocation  prepared  by  program  ALOC,  FVAL2 
then  reacls  and  processes  the  target  and  weapon  allocation  data  from  the 
ALOCl'AK  file,  one  block  at  a time.  Otherwise,  it  reads  these  data  from 
th.  SC'*  ”C1  file  prepared  bv  subroutine  PACK  using  the  ALt,X;iAR  file  and 
the  PI AN  TAPE. 
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THE  CONTENTS  OF  THESE  PAGES  INTENT  IONA  [.LY  DELF'lETl 


368.13  to  368.21 


CH*3 


4.11  ^broutine  PACK 
PURPOSE; 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 
COMMON  BLOCKS; 


SUBROUTINES  CALLED: 


CALLED  BY: 

Method : 

Before  PACK  can  reorder  the  PIANTAPE  weapon  allocation  into  target  order,  j 

it  must  obtain  the  target  order  from  the  ALOCTAR  file.  It  does  this  by  j 

reading  the  target  index  number  and  target  number  one  target  at  a time 
from  the  ALOCTAR  file  and  by  packing  these  into  the  next  unfilled  word 
of  the  JORDER  array  until  the  whole  file  has  been  read  (see  figure  64). 

Then  it  uses  ORDER  and  REORDER  to  reorder  the  array  in  target  index  num- 
ber, INDEXNO  order  (since  the  PLANTAPE  does  not  contain  target  number  data). 

PACK  is  then  ready  to  process  the  PIANTAPE,  which  it  does  one  record  at  a 
time.  Tanker  records  on  the  PIANTAPE  are  ignored  by  PACK  since  they  con- 
tain no  weapon  allocation  data. 

PACK  packs  data  for  each  event  on  the  PLANTAPE  which  is  a target  event. 

Wlien  processing  a bomber  record,  it  calls  subroutine  iiOMRl'AKR  once  for 
each  event  involving  a target  burst  to  pack  the  weapon  allocation  data 
into  the  next  unused  words  5.n  the  JLINK,  KLINK,  LLINK,  and  SLINK  arrays 
and  to  determine  the  target  number  on  the  ALOCTAR  iile  which  correspond 
to  this  target  index  number.  Subroutine  MISLPAKR  is  called  by  PACK  to 
perform  the  analogous  function  for  missile  target  events.  This  process 
is  repeated  for  every  raissile  and  bomber  record  on  the  PIANTAPE  until 
the  JLINK,  KLINK,  LLINK,  and  SLINK  arrays  are  filled.  Tlicn  PACK  reorders 
these  arrays  in  target  number  order.  If  the  arrays  are  filled  for  the 
first  time,  they  are  simply  \7ritten  onto  a SCRATCH  file  in  the  new 
order.  Tf  net,  fttcy  arc  merged  with  the  packed  data  which  must  be  ’-cad 
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PACK  with  its  associated  subroutines  BOMRPAKR,  ' 

MISLPAKR,  SEARCH,  and  UNPACKER  converts  the 
sortie-order  weapon  allocation  on  the  PLANTAPE 
to  target-ordered  allocation  and  writes  this 

new  allocation  onto  a SCRATCH  file  which  is  ; 

treated  like  the  ALOCTAR  file  in  subsequent 

processing  by  EVAL2.  PACK  is  used  only  in  post-  j 

PIANOUT  operation  of  EVAIALOC. 

PACK 

None 

BINSCH,  CTGTMOD,  FILABEL,  FILES,  HOB,  KEY, 

ISORTN,  ITP,  LATLON,  MYIDENT,  MYLABEL,  N, 

NOPRINT,  OPT,  P,  PLANREC,  TWORD 

ABORT,  BOMRPAKR,  IPUT,  KEYMAKE,  MISLPAKR,  ORDER, 

RDWORD,  RDARRAY,  REORDER,  SETREAD,  SETWRITE,  SKIP, 

TERMTAPE,  LWACKER,  WRARRAY,  WRWORD 

EVAIALOC 


r 


the  previously  written  SCRATCH  file;  the  merged  data,  which  is  in 
target  number  order,  is  written  onto  a new  SCRATCH  file.  Then  PACK  con- 
.inues  reading  and  processing  PLANTAPE  records  as  before  until  the  packed 
arrays  are  again  filled  or  until  the  PIANTAPE  has  been  completely  read 
and  all  the  weapon  allocation  data  are  contained  in  target  number  order 
on  one  scratch  file.  (If  the  total  number  of  warheads  is  no  greater  than  j 

I 3,500,  no  SCRATCH  frle  is  needed  or  written.)  j 

The  final  phase  of  processing  by  PACK  consists  of  reading  the  ALOCTAR 
file  one  target  block  at  a time,  calling  UNPACKER  to  unpack  the  associated 
weapon  allocation  data  for  the  target  from  the  previously  written  SCRATCH 
file,  and  writing  the  ALOCTAR  target  data  and  PLANTAPE  weapon  allocation 
data  together  on  a new  SCRATCH  file.  When  all  targets  on  the  ALOCTAR 
file  and  weapon  data  from  the  PLANTAPE  have  been  processes  in  this  way, 

PACK  writes  the  ALOCTAR  end-of-file  record  on  the  ALOCEAR-like  SCRATCH 
tile  and  returns  control  to  EVAIALOC. 

Subroutine  PACK  is  illustrated  in  figure  66. 


ITGT  = Target  number 
ITA  = INDEXNO/2048 
ITB  = INDEXNO  - ITA*2048 
(i.e.,  INDEXNO  - IT\*2048  + 1TB) 


Figure  64.  Format  of  JORDER  Array  Ekment 


I.’  i lie  SI'AKC'U 

i i''iv  roSI'. : 'I'l'  iloiermiiu'  (lie  t.irj'.et  iiiiiiilior  I'roiit  t lie  ALDlM'AR 

rile  wliiili  eiMrespeiiiis  t ii  I lie  iiulex  imiiilier  of  ji 
I’lANTArV.  l.'Us'.el. 

KKl'KY  IMIN’IS:  S I'AlU'.ll 

l'l>KMAl.  rAl\AMI'ri’:KS  : I'JIH’XNO  - 'I'lie  i.iry'et  iiulex  number  for  wlileli  t lie 

l.'ifj’.et  mmiber  in  soii>;lil 
rrcf  - Till’  (.'iri'.ei  niiiiiber  lU'iresiunul  i ng  tii 
INDKXNl)  iuui  Jet  oinii  noil  by  SI-AKCll 

(OMMON  bUtCKS:  HlNSi:il,  KKY 

suiiKoin'iNi:s  cAi.i.f.n : u; kv 

1 \l.l.i:i)  IlY:  bOMKI'AKK,  MlSI.rAKK 

Mt‘l  iiiul : 

Sul'i  .’lit  iiie  I’Ai’K  Met  s u]’  (lie  .ll'Kl'KK  ariay,  which  is  a list  of  (xickeil  wonls. 
r.uii  woiil  ill  (lie  arrav  eoiii  a i ns  a (ariu't  iiulex  number  (INOra)  ami  a tary.et 
niinil'er  t irtri' ) eorrespoiul  I ne.  lo  a (ary’^el  iin  t he  AltlClAK  tile,  ami  the  array 
■ in  inei  e.isine.  oi'iler  bv  INOKX.  Sl’AROll  uses  a binary  searcli  to  tiiul  the 
v>'oi’l  III  the  lORl'KR  arrav  which  has  tari’.et  iiulex  nniiiber  INOKXNtl  or  which  is 
the  imlc.i  number  closest  to  INUKXNO  hu'  not  lnf,{er  than  INDKXNO.  This 
ivoi.l  h.is  iiiiles  NNOW.  SljVKl’II  calls  snlnontine  UlKl  which  unpacks  .10ROKR 
(MNi'W)  to  obtain  ITiri'. 

I'lu  I list  time  tllARlTl  is  calleil  it  ih'leniiines  the  iiaramet  ers  NUHl,  INT, 
aiu'  N.'W  u.-eil  in  the  binaiv  si'.irch. 

Snbi  i'ut  ini'  SKARl’ll  is  i 1 lust  i .it  eil  in  1 iy.nre  b(i. 


program  Al-OC,  one  record  at  a time,  calling  subroutines  PROCSIMP, 
PROCMin.T,  or  PROCCOMP  to  process  each  simple,  multiple,  or  complex 
target,  respectively.  These  routines  extract  the  essential  data  from 
the  input  record  and,  for  each  weapon  strike,  cause  a record  to  be 
written  by  PROCSIMP  on  the  INTERMF.D  file  in  a standard  form  that  can 
be  sorted  later  in  AL0C02.  All  of  this  processing,  including  that  done 
by  subroutine  DGZSEL  for  complex  targets,  takes  place  during  the  ALOCOl 
phase  of  the  program  while  the  ALOCTAR  file  is  being  read  in. 

The  main  function  of  PROCSIMP  is  to  write  the  INTERMED  file  wiiich  is 
the  input  for  AL0C02.  Overlay  AL0C02  sorts  this  file  by  penetration 
corridor  within  weapon  group,  does  the  final  processing,  and  writes  the 
TMPALOC  file  (see  figure  71).  Figure  72  is  the  detailed  flowchart  for 
ALOCOl . 

3 . 3 Common  Block  Definition 

The  external  common  blocks  used  by  overlay  ALOCOl  in  processing  input, 
output  (I/O)  files  are  shown  in  table  20.  Table  21  describes  the 
additional  common  blocks  used  internally  by  overlay  ALOCOl.  Table  22 
describes  the  common  blocks  used  by  AL0C02, 


Table  20.  Overlay  ALOCOl  External  Common 
Blocks  (Part  1 of  4) 


INPUT  DATA  FROM  BASFILE 


block 

VARIABLE  OR  ARRAY* 

DESCRIPTION 

MASTER 

IHDATE 

Date  of  run  initiation 

IDEMINO 

Run  identification  number 

ISIDE 

Attacking  side 

NRTPT 

Number  of  route  points 

NCORR 

Number  of  penetration  corridors 

NDPEN 

Number  of  depenetration  corridors 

NRECOVER 

Number  of  recove^'y  bases 

NREF 

Number  of  directed  refuel  areas 

NREG 

Number  of  romnand  and  v.u..Lrol 
regions 

NTYPE 

Number  of  weapon  types 

NGROUP 

Number  of  weapon  groups 

NT OT BASE 

Total  number  of  bases 

N PAYLOAD 

Number  of  payload  types 

NASMTYPE 

Number  of  ASM  types 

NWHDTYPE 

Number  of  warhead  types 

NTANKBAS 

Number  of  tanker  bases 

NCOIPLEX 

Number  of  complex  targets 

NCLASS 

Nui'ber  of  weapon  classes  (2) 

NALERT 

Number  of  alert  conditions  (2) 

NT  GTS 

Number  of  targets 

NCORTYPE 

Number  of  penetration  corridor 
types 

NCNTRY 

Number  of  distinct  country  codes 

FILES 

TGrFILE(2) 

Target  data  file 

(.also  used 
by  AL0C02) 

BASFILE(2) 

MSLTIME(2) 

Data  base  information  file 

Fixed  missile  tindi  file 

AL0CTAR(2) 

Weap>.  n al  local  i.-jn  h\  tar.gets  file 

TMPALOC(2) 

Temporarv  allocation  file 

AL0CGRP(2) 

Allocation  by  group  ii.le 

STRKFIL(2) 

Strike  file 

Parenthetical  values  indicate  arrav  dimensions.  All  other  elemcjits 
ai».  Single-word  variables. 

In  I VO -word  arrays,  first  word  is  filehandler  buffer  usage  number; 
scl.ukI  word  is  maximum  file  length  in  words.  Single  variables  are 
logical  tape  unit  nundiers. 
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Table  2U.  (Part  2 of  4) 


BLOCK  VARIABLE  OR  ARRAY 

WGROUP  IREG(250) 

ITYPE(250) 
SBL(250) 

YIELD (250) 
CEP(250) 

REL(IOO) 

CCREL(20) 


ASMT  IAMSMUSO) 

YLD(50) 
IWHDASM(20) 

RELASM(20) 

CEPASM(20) 


TARGErr*  TGTNAME 

INDEXNO 
DESIG 
TASK 
CNT’RYLOC 

FLAG 

TGTMULT 

TGTLAT 

TGTLONG 

TGTRAD 

VTO 

M 

H(2) 

FVALHl 

NK 

FVAL(5) 

TAU(5) 


DESCRIPTION 

Command  and  control  region 
Type  index  (LTYPE) 

Probability  of  survival  before 
launch 

Weapon  yield  (megatons) 

CEP  (nautical  miles) 

Reliability 

Command  and  control  reliability 
by  command  and  control  region 

Index  to  ASM  table  for  each  group 
Warhead  yield  from  warhead  table 
Index  to  warhead  table  for  ASM 
warhead 

ASM  reliability 

Circular  error  probable  for  ASM 
delivery 

Target  name 

Target  index  number 

Target  designator  code 

Target  task  and  country  owner  codes 

Target  country  location  code  and 

vulnerability 

Target  flag  code 

Target  multiplicity 

Target  latitude 

Target  longitude 

Target  radius  (nautical  miles > 

Original  target  value 

Number  of  hardness  comiionents 

Lethal  radii  by  hardness  component'* 

Fraction  of  value  of  first  hardness 

component 

Number  of  time  components 
Fraction  of  value  escaping  in  each 
time  period 

Time  ending  each  time  component 


TARGET  is  the  ?4-word  record  contained  on  the  BASFILE  for  each  eomploy 
target  component. 

Ground  burst  radius  in  lower  18  bits;  air  burst  radiv.s  in  upper  18  bit;- 
in  units  of  .0001  nautical  miles. 
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Table  20.  (Part  3 of  4) 


VARIABLE  OR 

ARRAY 

DESCRIFTION 

TARGET 

IHCLASS 

Target  class  name 

(coat. ) 

ICLASS 

Target  class  number 

IHTYPE 

Target  type  name 

TARGET  (30)  -T\n^GEr  (34) 

Not  used 

MULTTGT* 

NAME 

Target  name 

INDEX 

Target  index  number 

DSIG 

Target  designator  code 

TSK 

Target  task  and  country  owner  codes 

CNTRLC 

Target  country  location  code 

FLG 

Target  flag  code 

TLAT 

Target  latitude 

tlong 

Target  longitude 

HOB* 

LXISPEC(3) 

Logical  array  set  true  for  weapon 
type  with  specified  HOB 

LXIWHOB(3) 

Logical  array  containing  user 
specified  HOB  by  weapon  type 

iHV0LN(255) 

Vulnerability  numbers  in  target  set 

UTYPE** 

IWTYPE(250) 

Weapon  type  index  for  each  group 
(equal  to  ITYPE  in  block  /WGROUP/) 

INPUT  DATA 

FR(>1  ALOCIAR 

B[a)CK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

DYN.AMIC 

tgtname 

Hollerith  target  name 

INDEXNO 

Index  number  of  target 

DESIG 

Target  designator  code 

TASK 

Target  task  and  iO'intr\  o.'ner  codes 

CNTRYI/lC 

Target  counLr>  iocition  code 
and  vulnerahi li ty 

FLAG 

target  flag  code 

TCTMULT 

Target  multiplicity  (original! 

TGTLAT 

Target  latitude 

TGTLONG 

Target  longitude 

TCTRAD 

Target  radius 

VTO 

M 

Original  target  value 

Number  of  hardness  components  (<  2! 

MIM.TTC','  -s  the  8-word  ruccud  contained  on  the  R4SFILE  for  each  multiple 

targt  i,  clcuoTit. 


TheMc  blocks  are  also  used  in  AL0C02. 
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Subroutine  SETPG 


I PURPOSE: 

ENTRY  POINT: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

I SUBROUTINES  CALLED: 
CALLED  BY: 


This  subroutine  controls  the  paging  of  target  data 
in  core  memory. 

SETPG 

IBETA  - number  of  targets  written 
Cl,  C3,  ITP,  MYIDENT,  TWORD 
RDARRAY,  SETREAD,  TERMTAPE 
WRRDSTRK 


Method: 

Overlay  AL0C02  wrote  target  related  data  onto  a scratch  disk  file  (unit 
number  24)  in  target  number  sort  order.  When  called,  SETPG  will  quaran- 
tee  desired  target  data  are  stored  within  working  arrays  ITDl  to  ITD6. 

Up  to  3,000  entries  may  be  held  In  working  storage.  If  the  desired 
target  is  not  contained  within  working  arrays,  SETPG  calculates  where 
the  desired  data  resides  within  the  disk  file  and  simply  reads  (a  re- 
wind is  necessary  in  some  cases),  or  skips  the  proper  number  of  records. 

Subroutine  SETPG  Is  Illustrated  In  figure  94. 
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(a) 

■ I 

, 1 _ 


IncrernifU  lot.ill 
Numlu'r  Ot  ! 

Sfr;V.es  ' 


130 


Complement  Nitniber 
Of  Strikes 
Per  CorritiDj  )-oj 
All  Corri.lors 


Call  ORDLK 
For  Nun'^>er 
Of  Strikes 
Fer  Corridor 


11.: 


Call  KliORDi  R Tor 

Number  Of  Strikes, 

Done 

Do  For  All 

Pointers,  And  Corridor 

Corridors 

Index  Arrays 

J 

(^RI  TUHN  ) 

T ' 

I ^ _ 

Call  TCR'nAn-  To  [ 
Termi  na  r ' 


Terminate  ij 
files  ( 


V' 


\ 


lA'^lTRP-O? 


V _ 


ISO  f 

Call  mm>SrRK  To 

Comp  lenient 

Write  The  RAID.STRK 

Number  Of  1 

Common  Block  On  The 

Strikes  Per  i 

TOPALOC  File 

Corridor  | 

160  Do 


Notes : 


Call  KRARRAY  To 
Write  STRkSUM 
Array  On 
TBIPAI.OC 

i 

t _ 


User 
Ojif  ion 


1S4_ 


I Print 

STRKSIIM  / 
Array  y 


- - W 


1.  ICORIN(NC)  is  an  array  of  the  corridor  inde.v  r.umbers.  con 

tains  the  I-indcx  in  the  l>V|i  arrai  of  t;u’  first  item  for  the  corridor. 
Both  arrays  are  later  reordered  in  the  sequence  dotennined  by  oiJering 
NSTRK . 


a.  When  all  items  in  the  I'VP  array  have  beer  rrocessoil.  those  for  the 
current  group  (i  .e.  , those  th.it  liave  not  yet  boon  ar.tten  on  tiio  outpui 
tape)  are  moved  to  the  beginninc  of  the  arrav,  and  ilie  rest  ol  tne  aiia. 
IS  filled  from  the  sort  tapi  . 

5.  As  the  items  are  processed  and  when  a new  weapon  grouji  nuiiibcr  is  on 
countered,  the  tallying,  sortinp.  and  tape  writing  foi  the  comjuitcd 
gioup  IS  done.  'Inless  1 L.as  liiRI'- 1 , the  program  tlien  retu'tis  to  jii\iOes.- 
fhe  remaining  items. 


Figure  y?.  (I’.art  .'f  2) 
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■ ' Siit)roi.t  xut‘  wRKDb  1 RK 

2^':  To  Lhc  ^C?/  Cininion  block  onto  the  TMPALOC 

nie  tor  s given  corridor  and  weapon  group. 


i'.'N'l  y KlTNTS: 


WRRDSTKK 


I * >C-k)N  BU:)CKS ; 


Cl,  C2,  C3,  DATA,  FILES,  HOB,  IFTPROT,  ITP,  KEYS, 
RAID,  WTYPE,  WAROUT 


SUPROUTINEC  CALLED:  GliOG,  IGET , LREORDER,  ORDER,  REORDER,  SETPG,  SLOG, 

WRARRAY 

CALLED  BY:  STRKOUT 

L_; 

Siibrout-ine  WKRDSTRK  unpacks  the  strike  and  target  data  and  writes  a 
’■ir-Tl'lc  length  record  in  the  format  of  common  /C2/  on  the  TMPALOC  file. 
For  missile  records,  it  sorts  the  target  data  in  order  of  decreasing 
lolative  values  (RV^AIM  array)  before  writing  it  on  the  file.  It  can 
optionaiLy  print  the  data,  as  indicated  on  the  user's  input  card. 


! 


Local  array  IHOB  contains  the  height  of  burst  (false  = ground;  true  - air) 
for  ach  strike.  The  target  preferred  HOB  (i.e.,  IDHOB)  is  packed  into 
th  ■ -'.'urth  target  packed  word  ITD3.  If  the  user  has  specified  a HOB  for 
a weapon  type  (as  determined  from  ISPEC  in  block  /HOB/)  then  the  pre- 
ferred HOB  is  overridden  by  the  user  specified  HOB  (IWHOB  in  block  /HOB/). 
Ihe  vulnerabil ity  codes  are  not  packed  with  the  other  target  information 
3*f’c.'.i:.c.  each  code  would  require  24  bits  of  storage.  Rather,  the  index 
of  the  code  in  the  IHVULN  table  in  block/HOB/  is  packed  into  the  fifth 
nacked  target  data  word  ITD5.  The  index  ranges  in  value  from  one  to  63; 
therefore  it  requires  only  six  bits  of  storage.  After  unpacking  the 
in  !-;.:,  U’RRDSTRK  adds  the  vulnerability  number  as  the  last  'n'r  characters 
ot  variable  CNTRYIOC  for  use  by  program  PLaIJOUT  . 


Sul. routine  WKRDSTRK  is  illustrated  in  figure  96. 
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